knitr::opts_chunk$set(echo = TRUE, cache = TRUE,cache.lazy = FALSE, echo=TRUE)
source("http://bioconductor.org/biocLite.R")
## Bioconductor version 3.5 (BiocInstaller 1.26.0), ?biocLite for help
## A newer version of Bioconductor is available for this version of R,
##   ?BiocUpgrade for help
require("stringr")
## Loading required package: stringr
require("MASS")
## Loading required package: MASS
require("ggplot2")
## Loading required package: ggplot2
q_value_cuttoff <- 0.0001
fkac <- "fkeita@kuhp.kyoto-u.ac.jp"

require(extrafont)
## Loading required package: extrafont
## Registering fonts with R
loadfonts(quiet = T)

#biocLite("GEOquery")
require(GEOquery)
## Loading required package: GEOquery
## Loading required package: Biobase
## Loading required package: BiocGenerics
## Loading required package: parallel
## 
## Attaching package: 'BiocGenerics'
## The following objects are masked from 'package:parallel':
## 
##     clusterApply, clusterApplyLB, clusterCall, clusterEvalQ,
##     clusterExport, clusterMap, parApply, parCapply, parLapply,
##     parLapplyLB, parRapply, parSapply, parSapplyLB
## The following objects are masked from 'package:stats':
## 
##     IQR, mad, sd, var, xtabs
## The following objects are masked from 'package:base':
## 
##     anyDuplicated, append, as.data.frame, cbind, colMeans,
##     colnames, colSums, do.call, duplicated, eval, evalq, Filter,
##     Find, get, grep, grepl, intersect, is.unsorted, lapply,
##     lengths, Map, mapply, match, mget, order, paste, pmax,
##     pmax.int, pmin, pmin.int, Position, rank, rbind, Reduce,
##     rowMeans, rownames, rowSums, sapply, setdiff, sort, table,
##     tapply, union, unique, unsplit, which, which.max, which.min
## Welcome to Bioconductor
## 
##     Vignettes contain introductory material; view with
##     'browseVignettes()'. To cite Bioconductor, see
##     'citation("Biobase")', and for packages 'citation("pkgname")'.
## Setting options('download.file.method.GEOquery'='auto')
## Setting options('GEOquery.inmemory.gpl'=FALSE)
set.seed("20170821")
theme_ggh <- function(font.size=10,legend.position = "none") {
            theme(axis.text.x = element_blank(),
            axis.text.y = element_blank(),
            axis.title = element_blank(),
            axis.line = element_blank(),
            axis.ticks = element_blank(),
            plot.title = element_blank(),
            panel.grid = element_blank(),
            panel.border = element_blank(),
            panel.spacing = element_blank(),
            panel.background = element_blank(),
            plot.background = element_blank(),
            plot.margin = unit(c(0,0,0,0),"cm"),
            text = element_text(family = "Arial",size=font.size,lineheight = 0.7),
            legend.position = "none")
}

get starting data

#downloader::download(url = "ftp://ftp.ncbi.nlm.nih.gov/geo/series/GSE49nnn/GSE49910/matrix/GSE49910_series_matrix.txt.gz",
#                     destfile="./metadata/gse49910.gz")
#gunzip("./metadata/gse49910.gz")

sampleGSM <- read.table(file = "./metadata/gse49910",header = F,sep = "\t",stringsAsFactors = F,skip = 28,check.names = F,quote = "",nrows = 667)
sampleGSM$gsm_id <- str_extract(sampleGSM$V2,pattern = "GSM[0-9]*")

get annotations

#downloader::download(url = "ftp://ftp.ncbi.nlm.nih.gov/geo/series/GSE49nnn/GSE49910/soft/GSE49910_family.soft.gz",
#                      destfile="./GSE49910_family.soft.gz")
gsm49910 <- getGEO(filename = "./GSE49910_family.soft.gz")
## Parsing....
#gsm49910@header

pca_GSM <- gsm49910@header$relation
pca_GSM <- pca_GSM[-length(pca_GSM)]
pca_GSM <- str_extract(pca_GSM, "GSM[0-9]*")
pca_GSM <- c(pca_GSM, gsm49910@header$sample_id)
rm(gsm49910)
gsm_annot <- list()
for(i in pca_GSM){
   gsm_i <- getGEO(GEO = i,destdir = "./tempdata")
   gsm_annot <- c(gsm_annot, list(gsm_i@header))
}
names(gsm_annot) <- pca_GSM

aboud description

#gsm_annot$GSM347920

#annot <- base::unlist(gsm_annot,recursive = T,use.names = T)

#keyname <- "title"

#gsm_annot[[2]][keyname]


list_1nest <- function(nested_list){
  nested_names <- c()
  for(i in nested_list){
    nested_names <- c(nested_names, names(i))
  }
  nested_names <- nested_names[!duplicated(nested_names)]
  
  #print(paste(length(nested_names)," is number of nested_names"))
  key_vector <- function(list, keyname){
    result_vector <- c()
    result_name <- names(list)
    for(i in list){
      #print(i[keyname])
      result_word <- as.character(i[keyname])
      result_vector <- c(result_vector, result_word)
    }
    names(result_vector) <- result_name
    return(result_vector)
  }
  
  result_df <- NULL
  for(j in nested_names){
    #print(paste(j, "is now vectorized..."))
    result_vector_j <- key_vector(nested_list, j)
    result_df <- cbind(result_df, result_vector_j)
  }
  colnames(result_df) <- nested_names
  result_df <- as.data.frame(result_df)
  return(result_df)
}

df_fac2chr <- function(df){
  df <- as.data.frame(df)
  for(i in c(1:ncol(df))){
    df[,i] <- as.character(df[,i])
  }
  return(df)
}


result_df <- list_1nest(gsm_annot)
result_df <- df_fac2chr(result_df)


wanted_df <- cbind(result_df$geo_accession,
            result_df$characteristics_ch1,
            result_df$source_name_ch1,
            result_df$title)
write.table(x = wanted_df,
            file = "wanted.csv",sep = ",",
            row.names = T,col.names = NA)



#result_df$celdata <- paste(result_df$geo_accession, ".CEL",sep = "")

get raw data

# getGEOSuppFiles("GSE49910",makeDirectory = F,baseDir = "./celfiles")
# untar(tarfile = "./celfiles/GSE49910_RAW.tar",exdir = "./celfiles/")
# 
# 
# for(i in c(1:nrow(result_df))){
#   getGEOSuppFiles(GEO = result_df$geo_accession[i],makeDirectory = F,baseDir = "./celfiles")
# }

DL chekc

cels <- list.files(path = "./celfiles",pattern = ".CEL|.cel.gz",full.names = T)
liver_cels <- list.files(path = "./celfiles",pattern = "liver.CEL",full.names = T)

gsm_cels <- cels[str_detect(cels, pattern = "GSM[0-9]*")]
gsm_cels <- str_extract(gsm_cels, pattern = "GSM[0-9]*")


re_download <- result_df[!result_df$geo_accession %in% gsm_cels,]$geo_accession
#for(i in c(1:length(re_download))){
#  getGEOSuppFiles(GEO = re_download[i],makeDirectory = F,baseDir = "./celfiles")
#}

each normalization by MAS5

## Warning in e$fun(obj, substitute(ex), parent.frame(), e$data): already
## exporting variable(s): cels
## Time difference of 1.86614 hours

each normalization by Rob

require(RobLoxBioC)
## Loading required package: RobLoxBioC
## Loading required package: RobLox
## Loading required package: distrMod
## Loading required package: distr
## Loading required package: startupmsg
## Utilities for Start-Up Messages (version 0.9.4)
## For more information see ?"startupmsg", NEWS("startupmsg")
## Loading required package: sfsmisc
## Loading required package: SweaveListingUtils
## Utilities for Sweave Together with TeX 'listings' Package (version 0.7.7)
## NOTE: Support for this package will stop soon.
## Package 'knitr' is providing the same functionality in a better way.
## Some functions from package 'base' are intentionally masked ---see SweaveListingMASK().
## Note that global options are controlled by SweaveListingoptions() ---c.f. ?"SweaveListingoptions".
## For more information see ?"SweaveListingUtils", NEWS("SweaveListingUtils")
## There is a vignette to this package; try vignette("ExampleSweaveListingUtils").
## 
## Attaching package: 'SweaveListingUtils'
## The following objects are masked from 'package:base':
## 
##     library, require
## Object Oriented Implementation of Distributions (version 2.6.2)
## Attention: Arithmetics on distribution objects are understood as operations on corresponding random variables (r.v.s); see distrARITH().
## Some functions from package 'stats' are intentionally masked ---see distrMASK().
## Note that global options are controlled by distroptions() ---c.f. ?"distroptions".
## For more information see ?"distr", NEWS("distr"), as well as
##   http://distr.r-forge.r-project.org/
## Package "distrDoc" provides a vignette to this package as well as to several extension packages; try vignette("distr").
## 
## Attaching package: 'distr'
## The following objects are masked from 'package:BiocGenerics':
## 
##     sd, width, width<-
## The following objects are masked from 'package:stats':
## 
##     df, qqplot, sd
## Loading required package: distrEx
## Extensions of Package 'distr' (version 2.6.1)
## Note: Packages "e1071", "moments", "fBasics" should be attached /before/ package "distrEx". See distrExMASK().Note: Extreme value distribution functionality has been moved to
##       package "RobExtremes". See distrExMOVED().
## For more information see ?"distrEx", NEWS("distrEx"), as well as
##   http://distr.r-forge.r-project.org/
## Package "distrDoc" provides a vignette to this package as well as to several related packages; try vignette("distr").
## 
## Attaching package: 'distrEx'
## The following objects are masked from 'package:BiocGenerics':
## 
##     IQR, mad, var
## The following objects are masked from 'package:stats':
## 
##     IQR, mad, median, var
## Loading required package: RandVar
## Implementation of Random Variables (version 1.0.1)
## For more information see ?"RandVar", NEWS("RandVar"), as well as
##   http://robast.r-forge.r-project.org/
## This package also includes a vignette; try vignette("RandVar").
## Loading required package: stats4
## Object Oriented Implementation of Probability Models (version 2.6.1)
## Some functions from pkg's 'base' and 'stats' are intentionally masked ---see distrModMASK().
## Note that global options are controlled by distrModoptions() ---c.f. ?"distrModoptions".
## For more information see ?"distrMod", NEWS("distrMod"), as well as
##   http://distr.r-forge.r-project.org/
## There is a vignette to this package; try vignette("distrMod").
## 
## Package "distrDoc" provides a vignette to the other distrXXX packages,
## as well as to several related packages; try vignette("distr").
## 
## Attaching package: 'distrMod'
## The following object is masked from 'package:stats4':
## 
##     confint
## The following object is masked from 'package:stringr':
## 
##     fixed
## The following object is masked from 'package:stats':
## 
##     confint
## The following object is masked from 'package:base':
## 
##     norm
## Loading required package: RobAStBase
## Loading required package: rrcov
## Loading required package: robustbase
## 
## Attaching package: 'robustbase'
## The following object is masked from 'package:Biobase':
## 
##     rowMedians
## Scalable Robust Estimators with High Breakdown Point (version 1.4-3)
## Robust Asymptotic Statistics (version 1.0.1)
## Some functions from pkg's 'stats' and 'graphics' are intentionally masked ---see RobAStBaseMASK().
## Note that global options are controlled by RobAStBaseoptions() ---c.f. ?"RobAStBaseoptions".
## For more information see ?"RobAStBase", NEWS("RobAStBase"), as well as
##   http://robast.r-forge.r-project.org/
## 
## Attaching package: 'RobAStBase'
## The following object is masked from 'package:graphics':
## 
##     clip
#rob5 <- exprs(robloxbioc(ReadAffy(filenames = cels5)))
# cels5 <- sample(cels,10, replace = F)
# start <- Sys.time()
# robeach <- NULL
# for(i in c(1:length(cels5))){
#   print(cels5[i])
#   rob_i <- exprs(robloxbioc(ReadAffy(filenames = cels5[i])))
#   robeach <- cbind(robeach, rob_i)
# }
# colnames(robeach) <- cels
# finish <- Sys.time()
# time_robeach <- c(finish,start)
# time_robeach[1] - time_robeach[2]

require(doParallel)
require(foreach)
start <- Sys.time()
cl <- makeCluster(4)
registerDoParallel(cl)

rob_4each <- foreach(i=c(1:length(cels)),
                    .combine = "cbind",.packages = c("affy","RobLoxBioC")) %dopar% {
  rob_i <- exprs(robloxbioc(ReadAffy(filenames = cels[i])))
  rob_i
}
stopCluster(cl)
finish <- Sys.time()
time_robforeach <- c(finish,start)
time_robforeach[1] - time_robforeach[2]
## Time difference of 45.08736 mins
detach("package:GEOquery", unload=TRUE)
detach("package:RobLoxBioC", unload=TRUE)
detach("package:affy", unload=TRUE)
detach("package:Biobase", unload=TRUE)
## Warning: 'Biobase' namespace cannot be unloaded:
##   namespace 'Biobase' is imported by 'AnnotationDbi', 'beadarray', 'RobLox' so cannot be unloaded
detach("package:BiocGenerics", unload=TRUE)
## Warning: 'BiocGenerics' namespace cannot be unloaded:
##   namespace 'BiocGenerics' is imported by 'GenomeInfoDb', 'AnnotationDbi', 'S4Vectors', 'beadarray', 'IRanges', 'XVector', 'GenomicRanges', 'Biobase' so cannot be unloaded
detach("package:doParallel", unload=TRUE)
detach("package:foreach", unload=TRUE)

distribution check

summarizer <- function(x){
  base_mean <- function(x){base::mean(x)}
  stats_median <- function(x){stats::median(x)}
  stats_var <- function(x){stats::var(x)}
  stats_mad <- function(x){stats::mad(x)}
  
  lin_mean <- apply(x,1,base_mean)
  lin_median <- apply(x,1,stats_median)
  lin_var <- apply(x,1,stats_var)
  lin_mad <- apply(x,1,stats_mad)
  
  log2x <- log(x)
  log2_mean <- apply(log2x,1,base_mean)
  log2_median <- apply(log2x,1,stats_median)
  log2_var <- apply(log2x, 1, stats_var)
  log2_mad <- apply(log2x, 1, stats_mad)
  
  result <- data.frame(lin_mean=lin_mean,
                       lin_mean_rank =rank(lin_mean),
                       lin_median=lin_median,
                       lin_median_rank =rank(lin_median),
                       lin_var=lin_var,
                       lin_var_rank=rank(lin_var),
                       lin_mad=lin_mad,
                       lin_mad_rank=rank(lin_mad),
                       log2_mean=log2_mean,
                       log2_mean_rank =rank(log2_mean),
                       log2_median=log2_median,
                       log2_median_rank=rank(log2_median),
                       log2_var=log2_var,
                       log2_var_rank=rank(log2_var),
                       log2_mad=log2_mad,
                       log2_mad_rank=rank(log2_mad))
  return(result)
}

mas5summary <- summarizer(mas5_4each)

plot(mas5summary$lin_mean, mas5summary$lin_var)

#x <- mas5summary$lin_mean
#y <- mas5summary$lin_var

dist_check <- function(x,y,slope=NULL){
  require(ggplot2)
  if(is.null(slope)){
    slope <- 1
  }
  df <- data.frame(x, y)
  df_label <- c(deparse(substitute(x)),deparse(substitute(y))) 
  colnames(df) <- c("x", "y")
  p <- ggplot()+
    geom_abline(slope = slope, intercept = 0,size=1,colour="red")+
    geom_point(data = df,mapping = aes(x=x,y=y),size=0.1)+
    xlab(df_label[1])+ylab(df_label[2])+
    theme_classic()+
    theme(aspect.ratio = 1)
  p
}

dist_check(mas5summary$lin_mean, mas5summary$lin_var)

dist_check(mas5summary$log2_mean,mas5summary$log2_var)

dist_check(mas5summary$log2_median,mas5summary$log2_mad)

robsummary <- summarizer(rob_4each)
dist_check(robsummary$lin_mean, robsummary$lin_var)

dist_check(robsummary$log2_mean,robsummary$log2_var)

dist_check(robsummary$log2_median,robsummary$log2_mad)

log2 conversion

mas5lg2 <- log2(mas5_4each)
truehist(mas5lg2)

#mas5lg2 <- mas5lg2[(mas5summary$lin_median_rank / nrow(mas5summary)) > 3/4,]
dim(mas5lg2)
## [1] 54675   741
truehist(mas5lg2)

roblg2 <- log2(rob_4each) 
truehist(roblg2)

name_conversion matrix

require(stringr)
rowname_cands <- cels
rowname_cands <- str_replace(rowname_cands,"\\./celfiles/","")
data_colname <- rowname_cands
rowname_cands <- str_replace(rowname_cands, "\\.gz","")
rowname_cands <- str_replace(rowname_cands, "\\.CEL|\\.cel","")
head(rowname_cands)
## [1] "A_Alexander cells_liver" "A_C3A_liver"            
## [3] "A_Hep 3B2.17_liver"      "A_Hep G2_liver"         
## [5] "A_huH1_liver"            "A_HuH6_liver"
tail(rowname_cands)
## [1] "GSM556663" "GSM556665" "GSM92231"  "GSM92232"  "GSM92233"  "GSM92234"
#rowname_cands

for(i in c(1:length(rowname_cands))){
  if(str_detect(rowname_cands[i],"^[ABC]")){
    rowname_cands[i] <- rowname_cands[i]
  }
  else if(str_detect(rowname_cands[i], "^GSM")){
    rowname_cands[i] <- str_extract(rowname_cands[i], "^GSM[0-9]*")
  }
  else{
    cat("unknown condition")
  }
}

conv_mat <- data.frame(filename=cels,data_colname=data_colname,id=rowname_cands,stringsAsFactors = F)
conv_mat <- merge(conv_mat, result_df,by.x = "id", by.y = "geo_accession",sort = F,all.x = T)

conv_mat$title <- ifelse(test = is.na(conv_mat$title),yes = "",no = conv_mat$title)
conv_mat$source_name_ch1 <- ifelse(test = is.na(conv_mat$source_name_ch1),
                                   yes = "",no = conv_mat$source_name_ch1)
conv_mat$characteristics_ch1 <- ifelse(test = is.na(conv_mat$characteristics_ch1),
                                       yes = "",no = conv_mat$characteristics_ch1)
conv_mat$colname_tag <- base::paste(conv_mat$id, conv_mat$title)



convertvector <- function(inputvector, matrix_in_out){
  colnames(matrix_in_out) <- c("in", "out")
  if (sum(inputvector %in% matrix_in_out[["in"]]) != length(inputvector)) {
    return("all inputvectors must be inclued matrix in")
  }
  else if(sum(duplicated(matrix_in_out[["in"]])!=0)){
    return("input vector must be unique")
  }
  else{
      output_vector <- c(NULL)
      for (i in inputvector){
          i_output <- matrix_in_out[matrix_in_out[,1]==i,2]
          i_output <- as.character(i_output)
          output_vector <- c(output_vector, i_output)
      }
      return(output_vector)
  }
}


# base::colnames(mas5lg2) <- convertvector(inputvector = base::colnames(mas5lg2),
#                                          matrix_in_out = data.frame(conv_mat$data_colname,
#                                                                     conv_mat$colname_tag))
# 
# base::colnames(roblg2) <- convertvector(inputvector = base::colnames(roblg2),
#                                          matrix_in_out = data.frame(conv_mat$data_colname,
#                                                                     conv_mat$colname_tag))

categorizer

for interpretation of cluster

categ <- list(Tcell=c("T_cell","T cell","T cells","CD4 cells","Treg","t_cell","Effector memory","Central memory","Naive, donor"),
              Bcell=c("B-cells","B cells","B cell"),
              Mono_Macro = c("Monocyte","monocytes","monopcytes","Peripheral blood from healthy human donor","macrophages","Macrophages"),
              Erythroblast = c("Erythroblast"),
              BM_HSC =c("Bone marrow & progenitors","Myelocytes","MEP cells","GMP cells","CMP cells",
                        "HSC","Human composite bone marrow","peripheral blood, prior"),
              Neutrophils=c("Neutrophils","neutrophils","PMN"),
              Gametes=c("Sperm","Oocytes","oocytes"),
              Centros=c("centrocyte","centroblast"),
              NKcells=c("NK cells","Natural killer cells","Natural Killer cells "),
              Dendritic_cells=c("Dendritic cells","dendritic cells","MDDC","DCs","Dcs"),
              MSC=c("-defrived mesenchymal stem cells","BM MSC","BM-MSC","cell type: mesenchymal stem cells","derived mesenchymal stem cells"),
              Plt=c("platelet"),
              SMC=c("smooth muscle cells","Smooth Muscle Cells","SMCs","smooth muscle cell"),
              Neuron=c("Nerve","astrocytes"),
              Endocrine=c("adrenal medulla"),
              Keratinocytes=c("keratinocytes"),
              Hepatocytes=c("hepatocyte"),
              Bone_etc=c("osteoblast","chondrocyte","DPSCs","adipocyte","adipose stem cell"),
              Vascular=c("lymphatic endothelial cells","HUVEC","Vein ECs","blood vessel endothelial cell","HMVEC","cell type: Endothelial cells"),
              Fibroblasts=c("Foreskin Cells","normal fibroblast","cell type: fibroblast","Human Fibroblast cells","PDB fibroblasts","fibroblasts_","Fibroblasts uninfected","Fibroblasts infected"),
              Epitel=c("bronchial epithelial cells"),
              Bladder=c("bladder"),
              ES_iPS=c("ESC","iPS","hIPSC","ES cell","Human Embryonic Stem Cells","embryonic stem cells")
              )

categ2 <- list(Blood_cell=c("T_cell","T cell","T cells","CD4 cells","Treg","t_cell","Effector memory","Central memory","Naive, donor","B-cells","B cells","B cell","Monocyte","monocytes","monopcytes","Peripheral blood from healthy human donor","macrophages","Macrophages","Erythroblast","Bone marrow & progenitors","Myelocytes","MEP cells","GMP cells","CMP cells","HSC","Human composite bone marrow","peripheral blood, prior","Neutrophils","neutrophils","PMN","centrocyte","centroblast","platelet","NK cells","Natural killer cells","Natural Killer cells ","Dendritic cells","dendritic cells","MDDC","DCs","Dcs"),
              MSC=c("-defrived mesenchymal stem cells","BM MSC","BM-MSC","cell type: mesenchymal stem cells","derived mesenchymal stem cells"),
              SMC=c("smooth muscle cells","Smooth Muscle Cells","SMCs","smooth muscle cell"),
              Neuro_endo=c("Nerve","astrocytes","adrenal medulla"),
              Hepatocytes=c("hepatocyte"),
              Bone_soft=c("osteoblast","chondrocyte","DPSCs","adipocyte","adipose stem cell"),
              Vascular=c("lymphatic endothelial cells","HUVEC","Vein ECs","blood vessel endothelial cell","HMVEC","cell type: Endothelial cells"),
              Fibroblasts=c("Foreskin Cells","normal fibroblast","cell type: fibroblast","Human Fibroblast cells","PDB fibroblasts","fibroblasts_","Fibroblasts uninfected","Fibroblasts infected"),
              Other=c("bronchial epithelial cells","bladder","keratinocytes"),
              ES_iPS_germ=c("ESC","iPS","hIPSC","ES cell","Human Embryonic Stem Cells","embryonic stem cells","Sperm","Oocytes","oocytes")
              )



#annotation_df <- data.frame(conv_mat$characteristics_ch1, conv_mat$source_name_ch1, conv_mat$title,stringsAsFactors = F)
#dictionaly_list <- categ

categolizer <- function(annotation_df, dictionaly_list){
  require(stringr)
  result_vector <- c()
  category_names <- names(dictionaly_list)

  vector_keyword <- function(search_vector, keyword_vector){
    vector_boolen <- c()
    for(j in c(1:length(search_vector))){
      for(k in c(1:length(keyword_vector))){
        boolen_temp1 <- str_detect(string = search_vector[j], keyword_vector[k])
        vector_boolen <- c(vector_boolen, boolen_temp1)
      }
    }
    return(sum(vector_boolen)!=0)
  }
  
  for(i in c(1:nrow(annotation_df))){
    annotation_boolen_temp <- c()
    for(l in c(1:length(category_names))){
      boolen_temp2 <- vector_keyword(search_vector = annotation_df[i,],
                                     keyword_vector = dictionaly_list[[l]])
      annotation_boolen_temp <- c(annotation_boolen_temp, boolen_temp2)
    }
    category_words_i <- category_names[annotation_boolen_temp]
    category_words_i <- paste(category_words_i,sep = "_",collapse = "_")
    result_vector <- c(result_vector,category_words_i)
  }
  return(result_vector)
}

categolization

conv_mat$category <- categolizer(annotation_df = data.frame(conv_mat$characteristics_ch1,
                                                   conv_mat$source_name_ch1,
                                                   conv_mat$title,stringsAsFactors = F),
                        dictionaly_list = categ2)

conv_mat$sample_tag <- paste(conv_mat$category, conv_mat$id, sep = "_")

conv_mat$category <- ifelse(conv_mat$category=="",str_extract(conv_mat$colname_tag,"^[ABC]"),conv_mat$category)

colnames of matrix

#dim(mas5lg2)
#colnames(mas5lg2)
#conv_mat$id

colnames_temp <- colnames(mas5lg2)
colnames_temp <- str_replace_all(colnames_temp,pattern = "\\.cel\\.gz","")
colnames_temp <- str_replace_all(colnames_temp,pattern = "\\.cel|\\.CEL","")

colnametemp <- for(i in c(1:length(colnames_temp))){
  if(str_detect(colnames_temp[i],"^[ABC]")){
    colnames_temp[i] <- colnames_temp[i]
  }
  else if(str_detect(colnames_temp[i], "^GSM")){
    colnames_temp[i] <- str_extract(colnames_temp[i], "^GSM[0-9]*")
  }
  else{
    print("unknown condition")
  }
}

#colnames_temp
#conv_mat$id
#colnames_temp[!colnames_temp %in% conv_mat$id]

#matrix_in_out = data.frame(conv_mat$id,conv_mat$sample_tag)


colnames_temp <- convertvector(inputvector = colnames_temp,
                                         matrix_in_out = data.frame(conv_mat$id,                                                                    conv_mat$sample_tag,stringsAsFactors = F))

colnames(mas5lg2) <- colnames_temp
colnames(roblg2) <- colnames_temp
rm(colnames_temp)

read annotation from R87

annot <- read.table(file = "2Garray.annot_2.txt",header = T,sep = "\t",stringsAsFactors = F)
annot <- annot[sort.list(annot$avg_sub,decreasing = F),]
deg <- annot[annot$q.value < q_value_cuttoff,]

other mission

other_genes <- c("CDH2","VIM","FN1")
others <- annot[annot$Gene.Symbol %in% other_genes,]
write.table(x = others, file = "genesExp_3_fromR137.txt",sep = "\t",row.names = T,col.names =NA)

reference sort

ref_sort <- function(sort_vector, ref_vector){
  result_vector <- c()
  for(i in c(1:length(ref_vector))){
    index_i <- which(sort_vector==ref_vector[i])
    result_vector <- c(result_vector, index_i)
  }
  return(result_vector)
}

m <- mas5lg2[rownames(mas5lg2) %in% deg$Row.names,]
m <- m[ref_sort(sort_vector =  rownames(m),ref_vector = deg$Row.names),]
m <- m[,ref_sort(sort_vector = colnames(m),ref_vector = conv_mat$sample_tag)]

colslider <- conv_mat$category
rowslider <- deg$gene_cluster

ggheat

# df = t(m)
# colslider=rowslider
# rowslider=colslider
# ColV = T
# colname_label = F
# font.size = 1
#                    clst_method="average"
#                    dist_method="spearman"

ggheat <- function(df,
                   clst_method="average",
                   dist_method="spearman",
                   colslider, rowslider,
                   ColV=T, RowV=T,
                   colname_label=T, rowname_label=T,
                   colangle=45, rowangle=45,
                   colours=c("blue", "white", "red"),
                   key.axis.fontsize=12,
                   main="title",
                   add_p=NULL,
                   lmat=NULL,
                   lhei=NULL,lwid=NULL,
                   font.size=10,
                   rowslider_palette=NULL,
                   col_pallete=NULL){
  require(ggplot2)
  require(reshape2)##for melting
  require(grid)
  require(gridExtra)
  require(ggdendro)
  require(scales)
  ##common theme function
  theme_ggh <- function(font.size=10,legend.position = "none") {
              theme(axis.text.x = element_blank(),
              axis.text.y = element_blank(),
              axis.title = element_blank(),
              axis.line = element_blank(),
              axis.ticks = element_blank(),
              plot.title = element_blank(),
              panel.grid = element_blank(),
              panel.border = element_blank(),
              panel.spacing = element_blank(),
              panel.background = element_blank(),
              plot.background = element_blank(),
              plot.margin = unit(c(0,0,0,0),"cm"),
              text = element_text(family = "Arial",size=font.size,lineheight = 0.7),
              legend.position = "none"
)
  }
  
  ##blank grid for plotting blank
  blank_grid <- grid.rect(gp=gpar(col="white"))

  df <- as.data.frame(df)
  
  ##clustering if needed
  cluster_data <- list()
  if(ColV==T){
     dist_x <- as.dist(1-cor(as.matrix(df),method = dist_method))
     clst_x <- hclust(dist_x,method = clst_method)
     df <- df[,clst_x$order]
     colslider <- colslider[clst_x$order]
     cluster_data <- append(cluster_data, list(clst_x))
  }
  
  if(RowV==T){
     dist_y <- as.dist(1-cor(as.matrix(t(df)),method = dist_method))
     clst_y <- hclust(dist_y,method = clst_method)
     df <- df[clst_y$order,]
     rowslider <- rowslider[clst_y$order]
     cluster_data <- append(cluster_data, list(clst_y))
  }
  
  ##matrix prepareation
  colname <- colnames(df)
  colname <- data.frame(text=colname, x=c(1:length(colname)),colslider=colslider)
  colnames(df) <- c(1:ncol(df))
  
  rowname <- rownames(df)
  rowname <- data.frame(text=rowname, y=c(1:length(rowname)),rowslider=rowslider)
  rownames(df) <- c(1:nrow(df))
  
  tiledata <- melt(as.matrix(df))
  
  ##heatmap is p1
  p1 <- ggplot()+
        geom_tile(data = tiledata, mapping = aes(x=Var2, y = Var1, fill=value))+
        scale_x_continuous(expand=c(0,0))+ 
        scale_y_continuous(expand=c(0,0))+
        scale_fill_gradient2(low = colours[1],mid = colours[2],high = colours[3],midpoint = (max(tiledata$value)+min(tiledata$value))/2)+
        guides(fill=F)+
        theme_ggh()
  #p1

  ##colslider is cols
  cols <- ggplot()+
          geom_tile(data=colname,aes(x=x,y=0,fill=colslider))+
          scale_x_continuous(expand=c(0,0))+ 
          scale_y_continuous(expand=c(0,0))+
          theme_ggh()
##          scale_fill_identity(guide = "legend")+
          
  #cols
  
  
  if(!is.null(rowslider_palette)){
    add_fill <- function(){return(scale_fill_manual(values = rowslider_palette,name="category"))}
  }else{
    add_fill <- function(){return(scale_fill_discrete(name="category"))}
  }
  ##rowslider is rows
  rows <- ggplot()+
          geom_tile(data=rowname,aes(x=0,y=y,fill=rowslider))+
          scale_x_continuous(expand=c(0,0))+ 
          scale_y_continuous(expand=c(0,0))+
          add_fill()+
          theme(legend.text = element_text(family = "Arial",size=font.size,lineheight = 0.7),
                legend.title =element_text(family = "Arial",size=font.size+2,lineheight = 0.7))
  
  rows_grob <- ggplot_gtable(ggplot_build(rows))
  id.legend <- which(sapply(rows_grob$grobs, function(x) x$name)=="guide-box")
  rows_legend <- rows_grob$grobs[[id.legend]]
  
  rows <- ggplot()+
          geom_tile(data=rowname,aes(x=0,y=y,fill=rowslider))+
          scale_x_continuous(expand=c(0,0))+ 
          scale_y_continuous(expand=c(0,0))+
          add_fill()+
          theme_ggh()
  #rows
  
  ##col dendrogram if needed
  if(ColV==T){
    coldend <- as.dendrogram(clst_x)
    #plot(coldend)
    coldend <- segment(dendro_data(coldend))
    cold <- ggplot()+
            geom_segment(data=coldend,aes(x=x, y=y, xend=xend, yend=yend))+
            scale_x_continuous(expand=c(0,0),limits = c(0.5,max(coldend$xend)+0.5))+ 
            scale_y_continuous(expand=c(0,0))+
            theme_ggh()
    #cold
  }else{
    cold <- blank_grid
  }
  
  ##row dendrogram if needed
  if(RowV==T){
    rowdend <- as.dendrogram(clst_y)
    #plot(rowdend)
    rowdend <- segment(dendro_data(rowdend))
    rowd <- ggplot()+
            geom_segment(data = rowdend,aes(x=x, y=y, xend=xend, yend=yend))+
            scale_x_continuous(expand=c(0,0),limits = c(0.5,max(rowdend$xend)+0.5))+ 
            scale_y_reverse(expand=c(0,0))+
            theme_ggh()+
            coord_flip()
    #rowd
  }else{
    rowd <- blank_grid
  }
  
  ##key histgram(density plot)
  key_hist <- hist(tiledata$value,breaks = 50,plot = F)
  max_hist <- max(key_hist$density)
  key_density <- data.frame(range=seq(min(tiledata$value)-1, max(tiledata$value)+1, 0.02))
  key_density_range <- density(tiledata$value)
  
  key <-  ggplot()+
          geom_tile(data = key_density, 
                    mapping = aes(x = range, y=max_hist/2*1.2,fill=range,width=0.02, height=max_hist*1.2),
                    show.legend = F)+
          scale_fill_gradient2(low = colours[1],mid = colours[2],high = colours[3],
                               midpoint = (max(tiledata$value)+min(tiledata$value))/2,
                               limits=c(max(tiledata$value),min(tiledata$value)),
                               oob=squish)+
          scale_x_continuous(expand=c(0,0))+
          scale_y_continuous(expand=c(0,0))+
          geom_histogram(data = tiledata,mapping = aes(x=value,y=..density..),
                         alpha=0.8, binwidth = (max(tiledata$value)-min(tiledata$value))/50)+
          guides(fill=F,colour=F)+xlab("")+ylab("")+
          theme_classic()+
          theme(text = element_text(family = "Arial",size=font.size,lineheight = 0.7),
                axis.text.x =  element_text(family = "Arial",size=key.axis.fontsize),
                axis.text.y =  element_text(family = "Arial",size=key.axis.fontsize),
                plot.margin = unit(c(0,0,-0.02,-0.015),"native"))
  #key
  
  ##colnames
  if(colname_label==T){
    colname_label <- ggplot()+
                geom_text(data=colname,mapping = aes(x=x,y=0, label=text,angle=colangle),
                          size=3,hjust=0)+
                scale_x_continuous(expand=c(0,0),limits = c(min(colname$x)-0.5, max(colname$x)+0.5))+
                scale_y_continuous(expand=c(0,0),limits = c(0,1))+
                theme_ggh(font.size =font.size)
    colname_table <- ggplot_gtable(ggplot_build(colname_label))
    colname_table$layout$clip[colname_table$layout$name=="panel"] <- "off"
    #class(colname_table)
    #colname_label
  }else{
    colname_label <- blank_grid
    colname_table <- blank_grid
  }
  
  ##rownames
  if(rowname_label==T){
    rowname_label <- ggplot()+
                geom_text(data = rowname,mapping = aes(x=0,y=y, label=text,angle=rowangle),
                          size=3,hjust=0)+
                scale_x_continuous(expand=c(0,0),limits = c(0,0.05))+
                scale_y_continuous(expand=c(0,0),limits = c(min(rowname$y)-0.5, max(rowname$y)+0.5))+
                theme_ggh(font.size =font.size)
    rowname_table <- ggplot_gtable(ggplot_build(rowname_label))
    rowname_table$layout$clip[rowname_table$layout$name=="panel"] <- "off"
    #rowname_label
  }else{
    rowname_label <- blank_grid
    rowname_table <- blank_grid
  }
  
  if(!is.null(add_p)){
    add <- add_p
  }else{
    add <- blank_grid
  }
  #add <- b1
  add <- rows_legend

  ##layout
  if(is.null(lmat) | is.null(lwid) | is.null(lhei)){
    lmat <- rbind(c(7,7,1,1,1,1),
                  c(7,7,5,1,1,1),
                  c(7,7,3,1,1,1),
                  c(6,4,2,9,10,1),
                  c(1,1,8,1,1,1))
    lwid <- c(0.2, 0.1, 1, 0.1,0.5,0.01)
    lhei <- c(0.1,0.2,0.1,2,0.01)
  }


  g1 <- grid.arrange(blank_grid,#1
                     p1,#2
                     cols,#3
                     rows,#4
                     cold,#5
                     rowd,#6
                     key,#7
                     colname_table,#8
                     rowname_table,#9
                     add,#10
                     layout_matrix=lmat,heights=lhei, widths=lwid,
                     top=textGrob(main, gp=gpar(fontsize=20,fontfamily="Arial")))
  result_list <- list(plot_data=g1, cluster_data=cluster_data)
  return(result_list)
}

plot ggheat

lmat <- rbind(c(7,7,1,1,1,1),
              c(7,7,5,1,1,1),
              c(7,7,3,1,1,1),
              c(6,4,2,9,10,1),
              c(1,1,8,1,1,1))
lwid <- c(0.2, 0.1, 1, 0.01,0.5,0.01)
lhei <- c(0.1,0.2,0.1,2,0.01)

ggheat(df = m,colslider = colslider,rowslider=rowslider)
## Loading required package: reshape2
## Loading required package: grid
## Loading required package: gridExtra
## 
## Attaching package: 'gridExtra'
## The following object is masked from 'package:Biobase':
## 
##     combine
## The following object is masked from 'package:BiocGenerics':
## 
##     combine
## Loading required package: ggdendro
## Loading required package: scales
## Warning: Ignoring unknown aesthetics: width, height

## $plot_data
## TableGrob (6 x 6) "arrange": 11 grobs
##     z     cells    name                grob
## 1   1 (2-6,1-6) arrange rect[GRID.rect.257]
## 2   2 (5-5,3-3) arrange      gtable[layout]
## 3   3 (4-4,3-3) arrange      gtable[layout]
## 4   4 (5-5,2-2) arrange      gtable[layout]
## 5   5 (3-3,3-3) arrange      gtable[layout]
## 6   6 (5-5,1-1) arrange      gtable[layout]
## 7   7 (2-4,1-2) arrange      gtable[layout]
## 8   8 (6-6,3-3) arrange      gtable[layout]
## 9   9 (5-5,4-4) arrange      gtable[layout]
## 10 10 (5-5,5-5) arrange   gtable[guide-box]
## 11 11 (1-1,1-6) arrange text[GRID.text.534]
## 
## $cluster_data
## $cluster_data[[1]]
## 
## Call:
## hclust(d = dist_x, method = clst_method)
## 
## Cluster method   : average 
## Number of objects: 741 
## 
## 
## $cluster_data[[2]]
## 
## Call:
## hclust(d = dist_y, method = clst_method)
## 
## Cluster method   : average 
## Number of objects: 137
res <- ggheat(df = t(m), colslider=rowslider ,rowslider=colslider, ColV = T,colname_label = F,font.size = 0.2)
## Warning: Ignoring unknown aesthetics: width, height

res <- ggheat(df = t(m), colslider=rowslider ,rowslider=colslider, ColV = T,colname_label = F,rowname_label = F,font.size = 14,clst_method = "ward.D2",lmat=lmat, lwid=lwid, lhei = lhei,main = "")
## Warning: Ignoring unknown aesthetics: width, height

grid.draw(res$plot_data)
ggsave(plot=res$plot_data,filename = "pca_clst2.tiff",dpi = 300,width = 18,height = 18,units = "cm")
grid.draw(res$plot_data)

res$cluster_data
## [[1]]
## 
## Call:
## hclust(d = dist_x, method = clst_method)
## 
## Cluster method   : ward.D2 
## Number of objects: 137 
## 
## 
## [[2]]
## 
## Call:
## hclust(d = dist_y, method = clst_method)
## 
## Cluster method   : ward.D2 
## Number of objects: 741

multi_detect function

one2multi_detect <- function(target_vector, search_vector){
  require("stringr")
  result_bool_vector <- c()
  for (i in c(1:length(target_vector))){
    bool_j <- c()
    for (j in c(1:length(search_vector))){
      bool_j <- c(bool_j,
                  str_detect(string = target_vector[i],
                             pattern = search_vector[j]))
    }
    bool_i <- sum(bool_j != 0)
    result_bool_vector <- c(result_bool_vector, as.logical(bool_i))
  }
  return(result_bool_vector)
} 

without ES, iPS, germ, Blood, Other cells

out_words <- c("Blood", "ES_iPS_germ","Other")
limited_m <- m[,!one2multi_detect(colnames(m), out_words)]
limited_colslider <- colslider[!one2multi_detect(colslider,out_words)]

limited_res <- ggheat(df = t(limited_m), colslider=rowslider ,rowslider=limited_colslider, ColV = T,colname_label = F,rowname_label = F,font.size = 14,clst_method = "ward.D2",lmat=lmat, lwid=lwid, lhei = lhei,main = "")
## Warning: Ignoring unknown aesthetics: width, height

grid.draw(limited_res$plot_data)
ggsave(plot=limited_res$plot_data,filename = "limited_pca_clst2.tiff",dpi = 300,width = 18,height = 18,units = "cm")
grid.draw(res$plot_data)

custom palette from colorbrewer

http://colorbrewer2.org/#type=qualitative&scheme=Paired&n=10

newcol <- c(A="#e31a1c",B="#1f78b4",C="#33a02c",
            Bone_soft="#fdbf6f",Fibroblasts="#ff7f00",Hepatocytes="#fb9a99",MSC="#a6cee3",
            Neuro_endo="#cab2d6",SMC="#6a3d9a",Vascular="#b2df8a")


limited_res <- ggheat(df = t(limited_m), colslider=rowslider ,rowslider=limited_colslider, ColV = T,colname_label = F,rowname_label = F,font.size = 14,clst_method = "ward.D2",lmat=lmat, lwid=lwid, lhei = lhei,main = "",rowslider_palette = newcol)
## Warning: Ignoring unknown aesthetics: width, height

ggsave(plot = limited_res$plot_data, filename = "limited_heat_newcol.tiff",dpi = 300,width = 18,height = 18,units = "cm")

re define DEG for cluster B cell lines

q_value_cuttoff_re <- 0.001
deg_B <- annot[annot$q.value < q_value_cuttoff_re,]

out_words_B <- c("Blood", "ES_iPS_germ","Other","Hepatocytes", "_A_")

nnn <- mas5lg2[rownames(mas5lg2) %in% deg_B$Row.names,]
nnn <- nnn[ref_sort(sort_vector =  rownames(nnn),ref_vector = deg_B$Row.names),]
nnn <- nnn[,ref_sort(sort_vector = colnames(nnn),ref_vector = conv_mat$sample_tag)]
nnn <- nnn[,!one2multi_detect(colnames(nnn), out_words_B)]

nnn <- as.data.frame(nnn)


colslider_B <- conv_mat$category
colslider_B
##   [1] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
##   [6] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
##  [11] "Blood_cell"  "Blood_cell"  "SMC"         "SMC"         "SMC"        
##  [16] "SMC"         "SMC"         "SMC"         "Other"       "Other"      
##  [21] "Other"       "Other"       "Other"       "Other"       "Other"      
##  [26] "Other"       "Other"       "Other"       "Blood_cell"  "Blood_cell" 
##  [31] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
##  [36] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
##  [41] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
##  [46] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
##  [51] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
##  [56] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
##  [61] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
##  [66] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
##  [71] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
##  [76] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
##  [81] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
##  [86] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
##  [91] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
##  [96] "Blood_cell"  "Blood_cell"  "Vascular"    "Vascular"    "Vascular"   
## [101] "Vascular"    "Vascular"    "Vascular"    "Vascular"    "Vascular"   
## [106] "Vascular"    "Vascular"    "Vascular"    "Vascular"    "Vascular"   
## [111] "Vascular"    "Vascular"    "Vascular"    "Vascular"    "Vascular"   
## [116] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [121] "Blood_cell"  "ES_iPS_germ" "ES_iPS_germ" "Blood_cell"  "Blood_cell" 
## [126] "Blood_cell"  "Blood_cell"  "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ"
## [131] "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ" "Other"       "Other"      
## [136] "Other"       "Other"       "Other"       "Other"       "Other"      
## [141] "Other"       "Other"       "Other"       "Other"       "Other"      
## [146] "Other"       "Other"       "Other"       "Other"       "Other"      
## [151] "Other"       "Other"       "Other"       "Other"       "Other"      
## [156] "Other"       "Other"       "Other"       "Blood_cell"  "Blood_cell" 
## [161] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [166] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [171] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [176] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [181] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [186] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [191] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [196] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [201] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [206] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [211] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [216] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [221] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [226] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [231] "ES_iPS_germ" "ES_iPS_germ" "Bone_soft"   "Bone_soft"   "Bone_soft"  
## [236] "Bone_soft"   "Bone_soft"   "Bone_soft"   "Bone_soft"   "Bone_soft"  
## [241] "Bone_soft"   "MSC"         "MSC"         "MSC"         "Bone_soft"  
## [246] "Bone_soft"   "Bone_soft"   "Bone_soft"   "Bone_soft"   "Bone_soft"  
## [251] "Bone_soft"   "Bone_soft"   "Bone_soft"   "Bone_soft"   "Bone_soft"  
## [256] "Bone_soft"   "MSC"         "MSC"         "MSC"         "MSC"        
## [261] "MSC"         "MSC"         "MSC"         "MSC"         "MSC"        
## [266] "MSC"         "MSC"         "MSC"         "MSC"         "MSC"        
## [271] "MSC"         "MSC"         "MSC"         "MSC"         "MSC"        
## [276] "MSC"         "MSC"         "MSC"         "MSC"         "MSC"        
## [281] "MSC"         "MSC"         "MSC"         "MSC"         "Blood_cell" 
## [286] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [291] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [296] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [301] "Blood_cell"  "Bone_soft"   "Bone_soft"   "Bone_soft"   "Bone_soft"  
## [306] "Bone_soft"   "Bone_soft"   "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [311] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [316] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [321] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [326] "Blood_cell"  "Blood_cell"  "Blood_cell"  "SMC"         "SMC"        
## [331] "SMC"         "SMC"         "SMC"         "SMC"         "Blood_cell" 
## [336] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [341] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [346] "Blood_cell"  "Other"       "Other"       "Other"       "Other"      
## [351] "Other"       "Other"       "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [356] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [361] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [366] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [371] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "ES_iPS_germ"
## [376] "ES_iPS_germ" "ES_iPS_germ" "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [381] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [386] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Vascular"   
## [391] "Vascular"    "Vascular"    "Vascular"    "Blood_cell"  "Blood_cell" 
## [396] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [401] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [406] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [411] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [416] "MSC"         "MSC"         "MSC"         "MSC"         "Vascular"   
## [421] "Vascular"    "Vascular"    "Vascular"    "Vascular"    "Vascular"   
## [426] "Vascular"    "Vascular"    "Vascular"    "Vascular"    "Vascular"   
## [431] "Vascular"    "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [436] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [441] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [446] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [451] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [456] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [461] "Blood_cell"  "Fibroblasts" "Fibroblasts" "Fibroblasts" "Fibroblasts"
## [466] "Vascular"    "Vascular"    "SMC"         "SMC"         "ES_iPS_germ"
## [471] "ES_iPS_germ" "ES_iPS_germ" "Fibroblasts" "Fibroblasts" "ES_iPS_germ"
## [476] "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ" "Blood_cell"  "Blood_cell" 
## [481] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [486] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [491] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [496] "Fibroblasts" "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ"
## [501] "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ"
## [506] "ES_iPS_germ" "Fibroblasts" "Fibroblasts" "Fibroblasts" "ES_iPS_germ"
## [511] "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ"
## [516] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [521] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [526] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [531] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "ES_iPS_germ"
## [536] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [541] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Vascular"    "Vascular"   
## [546] "Vascular"    "Vascular"    "Fibroblasts" "ES_iPS_germ" "ES_iPS_germ"
## [551] "ES_iPS_germ" "Vascular"    "Vascular"    "Vascular"    "Vascular"   
## [556] "Vascular"    "Vascular"    "Vascular"    "Vascular"    "Vascular"   
## [561] "Vascular"    "Vascular"    "Vascular"    "Vascular"    "Vascular"   
## [566] "Vascular"    "Vascular"    "Bone_soft"   "Bone_soft"   "Bone_soft"  
## [571] "Bone_soft"   "Bone_soft"   "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [576] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [581] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [586] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [591] "Blood_cell"  "MSC"         "MSC"         "MSC"         "MSC"        
## [596] "MSC"         "MSC"         "MSC"         "MSC"         "Hepatocytes"
## [601] "Hepatocytes" "Hepatocytes" "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [606] "Blood_cell"  "Blood_cell"  "MSC"         "MSC"         "MSC"        
## [611] "MSC"         "MSC"         "MSC"         "MSC"         "MSC"        
## [616] "MSC"         "ES_iPS_germ" "Neuro_endo"  "Neuro_endo"  "Vascular"   
## [621] "Vascular"    "Vascular"    "Vascular"    "Vascular"    "Blood_cell" 
## [626] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [631] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [636] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [641] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [646] "Blood_cell"  "Vascular"    "Vascular"    "SMC"         "SMC"        
## [651] "Fibroblasts" "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ"
## [656] "ES_iPS_germ" "Bone_soft"   "Bone_soft"   "Bone_soft"   "ES_iPS_germ"
## [661] "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ"
## [666] "Fibroblasts" "Fibroblasts" "Fibroblasts" "Fibroblasts" "Fibroblasts"
## [671] "Fibroblasts" "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [676] "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ"
## [681] "ES_iPS_germ" "ES_iPS_germ" "ES_iPS_germ" "Neuro_endo"  "Neuro_endo" 
## [686] "Neuro_endo"  "Neuro_endo"  "Neuro_endo"  "Neuro_endo"  "ES_iPS_germ"
## [691] "ES_iPS_germ" "ES_iPS_germ" "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [696] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [701] "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell"  "Blood_cell" 
## [706] "Vascular"    "Blood_cell"  "Blood_cell"  "Blood_cell"  "Neuro_endo" 
## [711] "Neuro_endo"  "Neuro_endo"  "Neuro_endo"  "A"           "A"          
## [716] "A"           "A"           "A"           "A"           "A"          
## [721] "A"           "A"           "A"           "B"           "B"          
## [726] "B"           "B"           "B"           "B"           "B"          
## [731] "B"           "B"           "B"           "B"           "B"          
## [736] "B"           "C"           "C"           "C"           "C"          
## [741] "C"
colslider_B <- colslider_B[!one2multi_detect(colslider_B, out_words)]
colslider_B <- colslider_B[colslider_B!= "A"]
colslider_B <- colslider_B[colslider_B!= "Hepatocytes"]

tmp <- data.frame(colslider_B, colnames(nnn))
tmp
##     colslider_B         colnames.nnn.
## 1           SMC         SMC_GSM116101
## 2           SMC         SMC_GSM116102
## 3           SMC         SMC_GSM116103
## 4           SMC         SMC_GSM116104
## 5           SMC         SMC_GSM116105
## 6           SMC         SMC_GSM116106
## 7      Vascular    Vascular_GSM141251
## 8      Vascular    Vascular_GSM141252
## 9      Vascular    Vascular_GSM141253
## 10     Vascular    Vascular_GSM141255
## 11     Vascular    Vascular_GSM143717
## 12     Vascular    Vascular_GSM143726
## 13     Vascular    Vascular_GSM143727
## 14     Vascular    Vascular_GSM143728
## 15     Vascular    Vascular_GSM143729
## 16     Vascular    Vascular_GSM143730
## 17     Vascular    Vascular_GSM143731
## 18     Vascular    Vascular_GSM143732
## 19     Vascular    Vascular_GSM143733
## 20     Vascular    Vascular_GSM143898
## 21     Vascular    Vascular_GSM143900
## 22     Vascular    Vascular_GSM143907
## 23     Vascular    Vascular_GSM143910
## 24     Vascular    Vascular_GSM143914
## 25    Bone_soft   Bone_soft_GSM239260
## 26    Bone_soft   Bone_soft_GSM239379
## 27    Bone_soft   Bone_soft_GSM239457
## 28    Bone_soft   Bone_soft_GSM239606
## 29    Bone_soft   Bone_soft_GSM239612
## 30    Bone_soft   Bone_soft_GSM239613
## 31    Bone_soft   Bone_soft_GSM239616
## 32    Bone_soft   Bone_soft_GSM239668
## 33    Bone_soft   Bone_soft_GSM239669
## 34          MSC         MSC_GSM250019
## 35          MSC         MSC_GSM250020
## 36          MSC         MSC_GSM250021
## 37    Bone_soft   Bone_soft_GSM260305
## 38    Bone_soft   Bone_soft_GSM260306
## 39    Bone_soft   Bone_soft_GSM260307
## 40    Bone_soft   Bone_soft_GSM260308
## 41    Bone_soft   Bone_soft_GSM260309
## 42    Bone_soft   Bone_soft_GSM260310
## 43    Bone_soft   Bone_soft_GSM260311
## 44    Bone_soft   Bone_soft_GSM260312
## 45    Bone_soft   Bone_soft_GSM260313
## 46    Bone_soft   Bone_soft_GSM260314
## 47    Bone_soft   Bone_soft_GSM260321
## 48    Bone_soft   Bone_soft_GSM260322
## 49          MSC         MSC_GSM260657
## 50          MSC         MSC_GSM260658
## 51          MSC         MSC_GSM260659
## 52          MSC         MSC_GSM260661
## 53          MSC         MSC_GSM260662
## 54          MSC         MSC_GSM260663
## 55          MSC         MSC_GSM260664
## 56          MSC         MSC_GSM260665
## 57          MSC         MSC_GSM260666
## 58          MSC         MSC_GSM260667
## 59          MSC         MSC_GSM260668
## 60          MSC         MSC_GSM260669
## 61          MSC         MSC_GSM260670
## 62          MSC         MSC_GSM260671
## 63          MSC         MSC_GSM260672
## 64          MSC         MSC_GSM260673
## 65          MSC         MSC_GSM260674
## 66          MSC         MSC_GSM260675
## 67          MSC         MSC_GSM260676
## 68          MSC         MSC_GSM260678
## 69          MSC         MSC_GSM260679
## 70          MSC         MSC_GSM260680
## 71          MSC         MSC_GSM260681
## 72          MSC         MSC_GSM260682
## 73          MSC         MSC_GSM260683
## 74          MSC         MSC_GSM260684
## 75          MSC         MSC_GSM260685
## 76          MSC         MSC_GSM260686
## 77    Bone_soft   Bone_soft_GSM265494
## 78    Bone_soft   Bone_soft_GSM265495
## 79    Bone_soft   Bone_soft_GSM265496
## 80    Bone_soft   Bone_soft_GSM265497
## 81    Bone_soft   Bone_soft_GSM265498
## 82    Bone_soft   Bone_soft_GSM265499
## 83          SMC         SMC_GSM287216
## 84          SMC         SMC_GSM287217
## 85          SMC         SMC_GSM287218
## 86          SMC         SMC_GSM287219
## 87          SMC         SMC_GSM287220
## 88          SMC         SMC_GSM287222
## 89     Vascular    Vascular_GSM305784
## 90     Vascular    Vascular_GSM305785
## 91     Vascular    Vascular_GSM305786
## 92     Vascular    Vascular_GSM305787
## 93          MSC         MSC_GSM322374
## 94          MSC         MSC_GSM322375
## 95          MSC         MSC_GSM322376
## 96          MSC         MSC_GSM322377
## 97     Vascular    Vascular_GSM330313
## 98     Vascular    Vascular_GSM330314
## 99     Vascular    Vascular_GSM330315
## 100    Vascular    Vascular_GSM330316
## 101    Vascular    Vascular_GSM335393
## 102    Vascular    Vascular_GSM335395
## 103    Vascular    Vascular_GSM335396
## 104    Vascular    Vascular_GSM335851
## 105    Vascular    Vascular_GSM335859
## 106    Vascular    Vascular_GSM335904
## 107    Vascular    Vascular_GSM335906
## 108    Vascular    Vascular_GSM336559
## 109 Fibroblasts Fibroblasts_GSM346941
## 110 Fibroblasts Fibroblasts_GSM346942
## 111 Fibroblasts Fibroblasts_GSM346943
## 112 Fibroblasts Fibroblasts_GSM346944
## 113    Vascular    Vascular_GSM346951
## 114    Vascular    Vascular_GSM346952
## 115         SMC         SMC_GSM346959
## 116         SMC         SMC_GSM346960
## 117 Fibroblasts Fibroblasts_GSM347919
## 118 Fibroblasts Fibroblasts_GSM347920
## 119 Fibroblasts Fibroblasts_GSM366942
## 120 Fibroblasts Fibroblasts_GSM372142
## 121 Fibroblasts Fibroblasts_GSM372144
## 122 Fibroblasts Fibroblasts_GSM372146
## 123    Vascular    Vascular_GSM385333
## 124    Vascular    Vascular_GSM385338
## 125    Vascular    Vascular_GSM385350
## 126    Vascular    Vascular_GSM385353
## 127 Fibroblasts Fibroblasts_GSM402707
## 128    Vascular    Vascular_GSM410666
## 129    Vascular    Vascular_GSM410667
## 130    Vascular    Vascular_GSM410668
## 131    Vascular    Vascular_GSM410669
## 132    Vascular    Vascular_GSM410672
## 133    Vascular    Vascular_GSM410673
## 134    Vascular    Vascular_GSM410674
## 135    Vascular    Vascular_GSM410675
## 136    Vascular    Vascular_GSM410678
## 137    Vascular    Vascular_GSM410679
## 138    Vascular    Vascular_GSM410680
## 139    Vascular    Vascular_GSM410681
## 140    Vascular    Vascular_GSM410684
## 141    Vascular    Vascular_GSM410685
## 142    Vascular    Vascular_GSM410686
## 143    Vascular    Vascular_GSM410687
## 144   Bone_soft   Bone_soft_GSM413840
## 145   Bone_soft   Bone_soft_GSM413842
## 146   Bone_soft   Bone_soft_GSM413846
## 147   Bone_soft   Bone_soft_GSM413847
## 148   Bone_soft   Bone_soft_GSM413848
## 149         MSC         MSC_GSM451153
## 150         MSC         MSC_GSM451154
## 151         MSC         MSC_GSM451155
## 152         MSC         MSC_GSM451156
## 153         MSC         MSC_GSM451157
## 154         MSC         MSC_GSM451158
## 155         MSC         MSC_GSM451160
## 156         MSC         MSC_GSM451161
## 157         MSC         MSC_GSM469125
## 158         MSC         MSC_GSM469126
## 159         MSC         MSC_GSM469127
## 160         MSC         MSC_GSM469128
## 161         MSC         MSC_GSM469129
## 162         MSC         MSC_GSM469130
## 163         MSC         MSC_GSM469131
## 164         MSC         MSC_GSM469132
## 165         MSC         MSC_GSM469136
## 166  Neuro_endo  Neuro_endo_GSM469411
## 167  Neuro_endo  Neuro_endo_GSM469412
## 168    Vascular    Vascular_GSM476782
## 169    Vascular    Vascular_GSM476783
## 170    Vascular    Vascular_GSM476784
## 171    Vascular    Vascular_GSM476785
## 172    Vascular    Vascular_GSM476786
## 173    Vascular    Vascular_GSM492832
## 174    Vascular    Vascular_GSM492833
## 175         SMC         SMC_GSM492834
## 176         SMC         SMC_GSM492835
## 177 Fibroblasts Fibroblasts_GSM500995
## 178   Bone_soft   Bone_soft_GSM501001
## 179   Bone_soft   Bone_soft_GSM501002
## 180   Bone_soft   Bone_soft_GSM501003
## 181 Fibroblasts Fibroblasts_GSM501890
## 182 Fibroblasts Fibroblasts_GSM501891
## 183 Fibroblasts Fibroblasts_GSM501892
## 184 Fibroblasts Fibroblasts_GSM501893
## 185 Fibroblasts Fibroblasts_GSM501894
## 186 Fibroblasts Fibroblasts_GSM501895
## 187  Neuro_endo   Neuro_endo_GSM53382
## 188  Neuro_endo   Neuro_endo_GSM53383
## 189  Neuro_endo   Neuro_endo_GSM53384
## 190  Neuro_endo   Neuro_endo_GSM53385
## 191  Neuro_endo   Neuro_endo_GSM53386
## 192  Neuro_endo   Neuro_endo_GSM53387
## 193    Vascular    Vascular_GSM551183
## 194  Neuro_endo   Neuro_endo_GSM92231
## 195  Neuro_endo   Neuro_endo_GSM92232
## 196  Neuro_endo   Neuro_endo_GSM92233
## 197  Neuro_endo   Neuro_endo_GSM92234
## 198           B          _B_HLE_liver
## 199           B          _B_HLF_liver
## 200           B         _B_JHH2_liver
## 201           B         _B_JHH4_liver
## 202           B          _B_Li7_liver
## 203           B       _B_SNU182_liver
## 204           B       _B_SNU387_liver
## 205           B       _B_SNU423_liver
## 206           B       _B_SNU449_liver
## 207           B       _B_SNU475_liver
## 208           B       _B_SNU761_liver
## 209           B       _B_SNU878_liver
## 210           B       _B_SNU886_liver
## 211           C         _C_JHH1_liver
## 212           C         _C_JHH6_liver
## 213           C      _C_NCIH684_liver
## 214           C       _C_SKHEP1_liver
## 215           C       _C_SNU398_liver
rowslider_B <- deg_B$gene_cluster

B_res_ward <- ggheat(df = t(nnn), colslider=rowslider_B ,rowslider=colslider_B, ColV = T,colname_label = F,rowname_label = F,font.size = 14,clst_method = "ward.D2",lmat=lmat, lwid=lwid, lhei = lhei,main = "")
## Warning: Ignoring unknown aesthetics: width, height

grid.draw(B_res_ward$plot_data)

ggsave(plot=B_res_ward$plot_data,filename = "B_limited.tiff",dpi = 300,width = 18,height = 18,units = "cm")

B_res_avg <- ggheat(df = t(nnn), colslider=rowslider_B ,rowslider=colslider_B, ColV = T,colname_label = F,rowname_label = F,font.size = 14,clst_method = "average",lmat=lmat, lwid=lwid, lhei = lhei,main = "")
## Warning: Ignoring unknown aesthetics: width, height

stroma cell in stroma category…

data_new_categ <- list()

categ3 <- list(Blood_cell=c("T_cell","T cell","T cells","CD4 cells","Treg","t_cell",
                            "Effector memory","Central memory","Naive, donor","B-cells",
                            "B cells","B cell","Monocyte","monocytes","monopcytes",
                            "Peripheral blood from healthy human donor",
                            "macrophages","Macrophages","Erythroblast",
                            "Bone marrow & progenitors","Myelocytes","MEP cells","GMP cells",
                            "CMP cells","HSC","Human composite bone marrow","peripheral blood, prior",
                            "Neutrophils","neutrophils","PMN","centrocyte","centroblast","platelet",
                            "NK cells","Natural killer cells","Natural Killer cells ",
                            "Dendritic cells","dendritic cells","MDDC","DCs","Dcs"),
              Stromal_cell=c("-defrived mesenchymal stem cells","BM MSC","BM-MSC",
                             "cell type: mesenchymal stem cells","derived mesenchymal stem cells",
                             "smooth muscle cells","Smooth Muscle Cells","SMCs","smooth muscle cell",
                             "Foreskin Cells","normal fibroblast","cell type: fibroblast",
                             "Human Fibroblast cells","PDB fibroblasts","fibroblasts_",
                             "Fibroblasts uninfected","Fibroblasts infected",
                             "osteoblast","chondrocyte","DPSCs","adipocyte","adipose stem cell"),
              Neuro_endo=c("Nerve","astrocytes","adrenal medulla"),
              Hepatocytes=c("hepatocyte"),
              Endothel=c("lymphatic endothelial cells","HUVEC","Vein ECs",
                         "blood vessel endothelial cell","HMVEC","cell type: Endothelial cells"),
              Other=c("bronchial epithelial cells","bladder","keratinocytes"),
              ES_iPS_germ=c("ESC","iPS","hIPSC","ES cell","Human Embryonic Stem Cells","embryonic stem cells","Sperm","Oocytes","oocytes")
              )
data_new_categ[["categ3"]] <- categ3
  #append(data_new_categ, categ3=list(categ3))


sample_info <- data.frame(filename=cels,data_colname=data_colname,id=rowname_cands,stringsAsFactors = F)
sample_info <- merge(sample_info, result_df,by.x = "id", by.y = "geo_accession",sort = F,all.x = T)

sample_info$title <- ifelse(test = is.na(sample_info$title),yes = "",no = sample_info$title)
sample_info$source_name_ch1 <- ifelse(test = is.na(sample_info$source_name_ch1),
                                   yes = "",no = sample_info$source_name_ch1)
sample_info$characteristics_ch1 <- ifelse(test = is.na(sample_info$characteristics_ch1),
                                       yes = "",no = sample_info$characteristics_ch1)
sample_info$colname_tag <- base::paste(sample_info$id, sample_info$title)
sample_info$category <- categolizer(annotation_df = data.frame(sample_info$characteristics_ch1,
                                                   sample_info$source_name_ch1,
                                                   sample_info$title,stringsAsFactors = F),
                        dictionaly_list = data_new_categ$categ3)

sample_info$sample_tag <- paste(sample_info$category, sample_info$id, sep = "_")

sample_info$category <- ifelse(sample_info$category=="",str_extract(sample_info$colname_tag,"^[ABC]"),sample_info$category)

data_new_categ[["sample_info"]] <- sample_info


m_re <- log2(mas5_4each)
m_re <- m_re[rownames(m_re) %in% deg$Row.names,]

colnames_temp <- colnames(m_re)
colnames_temp <- str_replace_all(colnames_temp,pattern = "\\.cel\\.gz","")
colnames_temp <- str_replace_all(colnames_temp,pattern = "\\.cel|\\.CEL","")

colnametemp <- for(i in c(1:length(colnames_temp))){
  if(str_detect(colnames_temp[i],"^[ABC]")){
    colnames_temp[i] <- colnames_temp[i]
  }
  else if(str_detect(colnames_temp[i], "^GSM")){
    colnames_temp[i] <- str_extract(colnames_temp[i], "^GSM[0-9]*")
  }
  else{
    print("unknown condition")
  }
}

#colnames_temp
#conv_mat$id
#colnames_temp[!colnames_temp %in% conv_mat$id]

#matrix_in_out = data.frame(conv_mat$id,conv_mat$sample_tag)

colnames_temp <- convertvector(inputvector = colnames_temp,
                                         matrix_in_out = data.frame(sample_info$id,                                                                    sample_info$sample_tag,stringsAsFactors = F))

colnames(m_re) <- colnames_temp
rm(colnames_temp)


m_re <- m_re[ref_sort(sort_vector =  rownames(m_re),ref_vector = deg$Row.names),]
m_re <- m_re[,ref_sort(sort_vector = colnames(m_re),ref_vector = data_new_categ$sample_info$sample_tag)]

# sum(colnames(m_re) %in% sample_info$sample_tag)
# colnames(m_re)[!colnames(m_re) %in% sample_info$sample_tag]
# table(sample_info$category)

data_new_categ[["matrix"]] <- t(m_re)

table(data_new_categ$sample_info$category)
## 
##            A            B   Blood_cell            C     Endothel 
##           10           13          409            5           64 
##  ES_iPS_germ  Hepatocytes   Neuro_endo        Other Stromal_cell 
##           63            3           12           41          121
data_new_categ[["rowslider"]] <- data_new_categ$sample_info$category
data_new_categ[["colslider"]] <- deg$gene_cluster

newcol2 <- c(A="#e31a1c",B="#1f78b4",C="#33a02c",
            Other="#fdbf6f",Stromal_cell="#6a3d9a",Hepatocytes="#ff7f00",Endothel="#a6cee3",
            Neuro_endo="#cab2d6",ES_iPS_germ="#fb9a99",Blood_cell="#b2df8a")

    lmat <- rbind(c(7,7,1,1,1,1),
                  c(7,7,5,1,1,1),
                  c(7,7,3,1,1,1),
                  c(6,4,2,9,10,1),
                  c(1,1,8,1,1,1))
    lwid <- c(0.25, 0.1, 1, 0.01,0.5,0.01)
    lhei <- c(0.1,0.2,0.1,2,0.01)




gh_new <- ggheat(df = data_new_categ$matrix,clst_method = "ward.D2",dist_method = "spearman",colslider = data_new_categ$colslider, rowslider = data_new_categ$rowslider,colname_label = F, rowname_label = F,rowslider_palette = newcol2,main = "",lmat = lmat, lwid = lwid,lhei = lhei,font.size = 14)
## Warning: Ignoring unknown aesthetics: width, height

grid.draw(gh_new$plot_data)

ggsave(plot = gh_new$plot_data,filename = "ggheat_stroma_emph.tiff",dpi = 300,width = 18,height = 18,units = "cm")

ggheat2

# df = t(m)
# colslider=rowslider
# rowslider=colslider
# ColV = T
# colname_label = F
# font.size = 1
#                    clst_method="average"
#                    dist_method="spearman"

ggheat2 <- function(df,
                   clst_method="average",
                   dist_method="spearman",
                   colslider, rowslider,
                   ColV=T, RowV=T,
                   colname_label=T, rowname_label=T,
                   colangle=45, rowangle=45,
                   colours=c("blue", "white", "red"),
                   key.axis.fontsize=12,
                   main="title",
                   add_p=NULL,
                   add_p2=NULL,
                   lmat=NULL,
                   lhei=NULL,lwid=NULL,
                   font.size=10,
                   rowslider_palette=NULL,
                   rowslider_palette_order=NULL){
  require(ggplot2)
  require(reshape2)##for melting
  require(grid)
  require(gridExtra)
  require(ggdendro)
  require(scales)
  ##common theme function
  theme_ggh <- function(font.size=10,legend.position = "none") {
              theme(axis.text.x = element_blank(),
              axis.text.y = element_blank(),
              axis.title = element_blank(),
              axis.line = element_blank(),
              axis.ticks = element_blank(),
              plot.title = element_blank(),
              panel.grid = element_blank(),
              panel.border = element_blank(),
              panel.spacing = element_blank(),
              panel.background = element_blank(),
              plot.background = element_blank(),
              plot.margin = unit(c(0,0,0,0),"cm"),
              text = element_text(family = "Arial",size=font.size,lineheight = 0.7),
              legend.position = "none"
)
  }
  
  ##blank grid for plotting blank
  blank_grid <- grid.rect(gp=gpar(col="white"))

  df <- as.data.frame(df)
  
  ##clustering if needed
  cluster_data <- list()
  if(ColV==T){
     dist_x <- as.dist(1-cor(as.matrix(df),method = dist_method))
     clst_x <- hclust(dist_x,method = clst_method)
     df <- df[,clst_x$order]
     colslider <- colslider[clst_x$order]
     cluster_data <- append(cluster_data, list(clst_x))
  }
  
  if(RowV==T){
     dist_y <- as.dist(1-cor(as.matrix(t(df)),method = dist_method))
     clst_y <- hclust(dist_y,method = clst_method)
     df <- df[clst_y$order,]
     rowslider <- rowslider[clst_y$order]
     cluster_data <- append(cluster_data, list(clst_y))
  }
  
  ##matrix prepareation
  colname <- colnames(df)
  colname <- data.frame(text=colname, x=c(1:length(colname)),colslider=colslider)
  colnames(df) <- c(1:ncol(df))
  
  rowname <- rownames(df)
  rowname <- data.frame(text=rowname, y=c(1:length(rowname)),rowslider=rowslider)
  rownames(df) <- c(1:nrow(df))
  
  ##for rowname_order
  rowname[,3] <- factor(x = rowslider, levels = c("A", "Hepatocytes", "B","Stromal_cell", "C", "Blood_cell", "Endothel", "ES_iPS_germ","Neuro_endo", "Other"))
  ##
  
  
  tiledata <- melt(as.matrix(df))
  
  ##heatmap is p1
  p1 <- ggplot()+
        geom_tile(data = tiledata, mapping = aes(x=Var2, y = Var1, fill=value))+
        scale_x_continuous(expand=c(0,0))+ 
        scale_y_continuous(expand=c(0,0))+
        scale_fill_gradient2(low = colours[1],mid = colours[2],high = colours[3],midpoint = (max(tiledata$value)+min(tiledata$value))/2)+
        guides(fill=F)+
        theme_ggh()
  #p1

  ##colslider is cols
  cols <- ggplot()+
          geom_tile(data=colname,aes(x=x,y=0,fill=colslider))+
          scale_x_continuous(expand=c(0,0))+ 
          scale_y_continuous(expand=c(0,0))+
          theme_ggh()
##          scale_fill_identity(guide = "legend")+
          
  #cols
  
  
  if(!is.null(rowslider_palette)){
    add_fill <- function(){return(scale_fill_manual(values = rowslider_palette,name="category"))}
  }else{
    add_fill <- function(){return(scale_fill_discrete(name="category"))}
  }
  ##rowslider is rows
  rows <- ggplot()+
          geom_tile(data=rowname,aes(x=0,y=y,fill=rowslider))+
          scale_x_continuous(expand=c(0,0))+ 
          scale_y_continuous(expand=c(0,0))+
          add_fill()+
          theme(legend.text = element_text(family = "Arial",size=font.size,lineheight = 0.7),
                legend.title =element_text(family = "Arial",size=font.size+2,lineheight = 0.7))
  
  rows_grob <- ggplot_gtable(ggplot_build(rows))
  id.legend <- which(sapply(rows_grob$grobs, function(x) x$name)=="guide-box")
  rows_legend <- rows_grob$grobs[[id.legend]]
  
  rows <- ggplot()+
          geom_tile(data=rowname,aes(x=0,y=y,fill=rowslider))+
          scale_x_continuous(expand=c(0,0))+ 
          scale_y_continuous(expand=c(0,0))+
          add_fill()+
          theme_ggh()
  #rows
  
  ##col dendrogram if needed
  if(ColV==T){
    coldend <- as.dendrogram(clst_x)
    #plot(coldend)
    coldend <- segment(dendro_data(coldend))
    cold <- ggplot()+
            geom_segment(data=coldend,aes(x=x, y=y, xend=xend, yend=yend))+
            scale_x_continuous(expand=c(0,0),limits = c(0.5,max(coldend$xend)+0.5))+ 
            scale_y_continuous(expand=c(0,0))+
            theme_ggh()
    #cold
  }else{
    cold <- blank_grid
  }
  
  ##row dendrogram if needed
  if(RowV==T){
    rowdend <- as.dendrogram(clst_y)
    #plot(rowdend)
    rowdend <- segment(dendro_data(rowdend))
    rowd <- ggplot()+
            geom_segment(data = rowdend,aes(x=x, y=y, xend=xend, yend=yend))+
            scale_x_continuous(expand=c(0,0),limits = c(0.5,max(rowdend$xend)+0.5))+ 
            scale_y_reverse(expand=c(0,0))+
            theme_ggh()+
            coord_flip()
    #rowd
  }else{
    rowd <- blank_grid
  }
  
  ##key histgram(density plot)
  key_hist <- hist(tiledata$value,breaks = 50,plot = F)
  max_hist <- max(key_hist$density)
  key_density <- data.frame(range=seq(min(tiledata$value)-1, max(tiledata$value)+1, 0.02))
  key_density_range <- density(tiledata$value)
  
  key <-  ggplot()+
          geom_tile(data = key_density, 
                    mapping = aes(x = range, y=max_hist/2*1.2,fill=range,width=0.02, height=max_hist*1.2),
                    show.legend = F)+
          scale_fill_gradient2(low = colours[1],mid = colours[2],high = colours[3],
                               midpoint = (max(tiledata$value)+min(tiledata$value))/2,
                               limits=c(max(tiledata$value),min(tiledata$value)),
                               oob=squish)+
          scale_x_continuous(expand=c(0,0))+
          scale_y_continuous(expand=c(0,0))+
          geom_histogram(data = tiledata,mapping = aes(x=value,y=..density..),
                         alpha=0.8, binwidth = (max(tiledata$value)-min(tiledata$value))/50)+
          guides(fill=F,colour=F)+xlab("")+ylab("")+
          theme_classic()+
          theme(text = element_text(family = "Arial",size=font.size,lineheight = 0.7),
                axis.text.x =  element_text(family = "Arial",size=key.axis.fontsize),
                axis.text.y =  element_text(family = "Arial",size=key.axis.fontsize),
                plot.margin = unit(c(0,0,-0.02,-0.015),"native"))
  #key
  
  ##colnames
  if(colname_label==T){
    colname_label <- ggplot()+
                geom_text(data=colname,mapping = aes(x=x,y=0, label=text,angle=colangle),
                          size=3,hjust=0)+
                scale_x_continuous(expand=c(0,0),limits = c(min(colname$x)-0.5, max(colname$x)+0.5))+
                scale_y_continuous(expand=c(0,0),limits = c(0,1))+
                theme_ggh(font.size =font.size)
    colname_table <- ggplot_gtable(ggplot_build(colname_label))
    colname_table$layout$clip[colname_table$layout$name=="panel"] <- "off"
    #class(colname_table)
    #colname_label
  }else{
    colname_label <- blank_grid
    colname_table <- blank_grid
  }
  
  ##rownames
  if(rowname_label==T){
    rowname_label <- ggplot()+
                geom_text(data = rowname,mapping = aes(x=0,y=y, label=text,angle=rowangle),
                          size=3,hjust=0)+
                scale_x_continuous(expand=c(0,0),limits = c(0,0.05))+
                scale_y_continuous(expand=c(0,0),limits = c(min(rowname$y)-0.5, max(rowname$y)+0.5))+
                theme_ggh(font.size =font.size)
    rowname_table <- ggplot_gtable(ggplot_build(rowname_label))
    rowname_table$layout$clip[rowname_table$layout$name=="panel"] <- "off"
    #rowname_label
  }else{
    rowname_label <- blank_grid
    rowname_table <- blank_grid
  }
  
  if(!is.null(add_p)){
    add <- add_p
  }else{
    add <- blank_grid
  }
  #add <- b1
  add <- rows_legend

  
  if(is.null(add_p2)){
    add_p2 <- blank_grid
  }
  
  ##layout
  if(is.null(lmat) | is.null(lwid) | is.null(lhei)){
    lmat <- rbind(c(7,7,1,1,1,11),
                  c(7,7,5,1,1,1),
                  c(7,7,3,1,1,1),
                  c(6,4,2,9,10,1),
                  c(1,1,8,1,1,1))
    lwid <- c(0.2, 0.1, 1, 0.1,0.5,0.01)
    lhei <- c(0.1,0.2,0.1,2,0.01)
  }


  g1 <- grid.arrange(blank_grid,#1
                     p1,#2
                     cols,#3
                     rows,#4
                     cold,#5
                     rowd,#6
                     key,#7
                     colname_table,#8
                     rowname_table,#9
                     add,#10
                     add_p2,#11
                     layout_matrix=lmat,heights=lhei, widths=lwid,
                     top=textGrob(main, gp=gpar(fontsize=20,fontfamily="Arial")))
  result_list <- list(plot_data=g1, cluster_data=cluster_data)
  return(result_list)
}

get custer data

row_clst <- gh_new$cluster_data[2][[1]]
row_clst$order[str_detect(row_clst$labels,pattern = "Stroma_cell|_B_")]
##  [1] 342 343 345 346  29  44  31  47  30  32  39  43  41
row_clst$labels[row_clst$order]
##   [1] "ES_iPS_germ_GSM530604"    "ES_iPS_germ_GSM530606"   
##   [3] "ES_iPS_germ_GSM530601"    "ES_iPS_germ_GSM530603"   
##   [5] "ES_iPS_germ_GSM372156"    "ES_iPS_germ_GSM372154"   
##   [7] "ES_iPS_germ_GSM372155"    "ES_iPS_germ_GSM469409"   
##   [9] "ES_iPS_germ_GSM172866"    "ES_iPS_germ_GSM172865"   
##  [11] "ES_iPS_germ_GSM172870"    "ES_iPS_germ_GSM172868"   
##  [13] "ES_iPS_germ_GSM172867"    "ES_iPS_germ_GSM172869"   
##  [15] "ES_iPS_germ_GSM540716"    "ES_iPS_germ_GSM540714"   
##  [17] "ES_iPS_germ_GSM540715"    "ES_iPS_germ_GSM402806"   
##  [19] "ES_iPS_germ_GSM402717"    "ES_iPS_germ_GSM402752"   
##  [21] "ES_iPS_germ_GSM530611"    "_C_SNU398_liver"         
##  [23] "ES_iPS_germ_GSM501008"    "ES_iPS_germ_GSM501007"   
##  [25] "ES_iPS_germ_GSM501009"    "ES_iPS_germ_GSM501004"   
##  [27] "ES_iPS_germ_GSM501006"    "ES_iPS_germ_GSM500996"   
##  [29] "ES_iPS_germ_GSM500997"    "ES_iPS_germ_GSM501000"   
##  [31] "ES_iPS_germ_GSM500998"    "ES_iPS_germ_GSM500999"   
##  [33] "ES_iPS_germ_GSM347922"    "ES_iPS_germ_GSM501005"   
##  [35] "ES_iPS_germ_GSM378811"    "ES_iPS_germ_GSM347917"   
##  [37] "ES_iPS_germ_GSM347916"    "ES_iPS_germ_GSM347918"   
##  [39] "ES_iPS_germ_GSM347924"    "ES_iPS_germ_GSM347923"   
##  [41] "ES_iPS_germ_GSM347925"    "ES_iPS_germ_GSM225042"   
##  [43] "ES_iPS_germ_GSM230294"    "ES_iPS_germ_GSM530602"   
##  [45] "ES_iPS_germ_GSM530605"    "ES_iPS_germ_GSM530607"   
##  [47] "ES_iPS_germ_GSM372157"    "ES_iPS_germ_GSM372159"   
##  [49] "ES_iPS_germ_GSM367062"    "ES_iPS_germ_GSM372158"   
##  [51] "ES_iPS_germ_GSM367243"    "ES_iPS_germ_GSM367244"   
##  [53] "ES_iPS_germ_GSM367245"    "ES_iPS_germ_GSM367258"   
##  [55] "ES_iPS_germ_GSM367061"    "ES_iPS_germ_GSM367241"   
##  [57] "ES_iPS_germ_GSM367242"    "ES_iPS_germ_GSM367219"   
##  [59] "ES_iPS_germ_GSM367240"    "Neuro_endo_GSM53385"     
##  [61] "Neuro_endo_GSM53386"      "Neuro_endo_GSM53382"     
##  [63] "Neuro_endo_GSM53384"      "Neuro_endo_GSM53383"     
##  [65] "Neuro_endo_GSM53387"      "ES_iPS_germ_GSM304262"   
##  [67] "ES_iPS_germ_GSM304260"    "ES_iPS_germ_GSM304261"   
##  [69] "ES_iPS_germ_GSM158468"    "ES_iPS_germ_GSM158470"   
##  [71] "Other_GSM173542"          "Other_GSM173541"         
##  [73] "Other_GSM173543"          "Other_GSM173538"         
##  [75] "Other_GSM173539"          "Other_GSM173546"         
##  [77] "Other_GSM173544"          "Other_GSM173540"         
##  [79] "Other_GSM173545"          "Other_GSM173552"         
##  [81] "Other_GSM173550"          "Other_GSM173551"         
##  [83] "Other_GSM173535"          "Other_GSM173556"         
##  [85] "Other_GSM173553"          "Other_GSM173536"         
##  [87] "Other_GSM173537"          "Other_GSM173554"         
##  [89] "Other_GSM173555"          "Other_GSM173534"         
##  [91] "Other_GSM173547"          "Other_GSM173548"         
##  [93] "Other_GSM173549"          "Other_GSM173532"         
##  [95] "Other_GSM173533"          "Other_GSM119354"         
##  [97] "Other_GSM119362"          "Other_GSM119360"         
##  [99] "Other_GSM119357"          "Other_GSM119359"         
## [101] "Other_GSM119361"          "Other_GSM119371"         
## [103] "Other_GSM119366"          "Other_GSM119369"         
## [105] "Other_GSM119372"          "Other_GSM299096"         
## [107] "Other_GSM299095"          "Other_GSM299097"         
## [109] "Other_GSM299098"          "Other_GSM299099"         
## [111] "Other_GSM299100"          "Endothel_GSM410679"      
## [113] "Endothel_GSM410680"       "Endothel_GSM410681"      
## [115] "Endothel_GSM410678"       "Endothel_GSM410666"      
## [117] "Endothel_GSM410669"       "Endothel_GSM410667"      
## [119] "Endothel_GSM410668"       "Endothel_GSM410675"      
## [121] "Endothel_GSM410684"       "Endothel_GSM410673"      
## [123] "Endothel_GSM410672"       "Endothel_GSM410674"      
## [125] "Endothel_GSM410685"       "Endothel_GSM410686"      
## [127] "Endothel_GSM410687"       "Endothel_GSM143898"      
## [129] "Endothel_GSM143900"       "Endothel_GSM143910"      
## [131] "Endothel_GSM143914"       "Endothel_GSM143717"      
## [133] "Endothel_GSM143907"       "Endothel_GSM305787"      
## [135] "Endothel_GSM305784"       "Endothel_GSM305785"      
## [137] "Endothel_GSM476784"       "Endothel_GSM476783"      
## [139] "Endothel_GSM476786"       "Endothel_GSM476782"      
## [141] "Endothel_GSM476785"       "Endothel_GSM492832"      
## [143] "Endothel_GSM492833"       "Endothel_GSM141252"      
## [145] "Endothel_GSM141253"       "Endothel_GSM141251"      
## [147] "Endothel_GSM141255"       "Endothel_GSM330314"      
## [149] "Endothel_GSM143726"       "Endothel_GSM335859"      
## [151] "Endothel_GSM330313"       "Endothel_GSM335393"      
## [153] "Endothel_GSM335851"       "Endothel_GSM335395"      
## [155] "Endothel_GSM385350"       "Endothel_GSM385353"      
## [157] "Endothel_GSM143727"       "Endothel_GSM385333"      
## [159] "Endothel_GSM385338"       "Endothel_GSM346952"      
## [161] "Endothel_GSM346951"       "Endothel_GSM551183"      
## [163] "Endothel_GSM330315"       "Endothel_GSM335904"      
## [165] "Endothel_GSM330316"       "Endothel_GSM335396"      
## [167] "Endothel_GSM335906"       "Endothel_GSM336559"      
## [169] "Endothel_GSM143729"       "Endothel_GSM143728"      
## [171] "Endothel_GSM143731"       "Endothel_GSM143732"      
## [173] "Endothel_GSM143733"       "Endothel_GSM143730"      
## [175] "Endothel_GSM305786"       "Stromal_cell_GSM413842"  
## [177] "Stromal_cell_GSM372142"   "Stromal_cell_GSM372144"  
## [179] "Stromal_cell_GSM372146"   "Stromal_cell_GSM366942"  
## [181] "Stromal_cell_GSM402707"   "Stromal_cell_GSM500995"  
## [183] "Stromal_cell_GSM347919"   "Stromal_cell_GSM347920"  
## [185] "Stromal_cell_GSM501001"   "Stromal_cell_GSM501002"  
## [187] "Stromal_cell_GSM501003"   "Stromal_cell_GSM501890"  
## [189] "Stromal_cell_GSM501895"   "Stromal_cell_GSM501891"  
## [191] "Stromal_cell_GSM501894"   "Stromal_cell_GSM501892"  
## [193] "Stromal_cell_GSM501893"   "Stromal_cell_GSM260309"  
## [195] "Stromal_cell_GSM260311"   "Stromal_cell_GSM260312"  
## [197] "Stromal_cell_GSM260310"   "Stromal_cell_GSM260313"  
## [199] "Stromal_cell_GSM260305"   "Stromal_cell_GSM260306"  
## [201] "Stromal_cell_GSM260308"   "Stromal_cell_GSM260321"  
## [203] "Stromal_cell_GSM260307"   "Stromal_cell_GSM260314"  
## [205] "Stromal_cell_GSM260322"   "Stromal_cell_GSM287219"  
## [207] "Stromal_cell_GSM287218"   "Stromal_cell_GSM287222"  
## [209] "Stromal_cell_GSM287217"   "Stromal_cell_GSM287216"  
## [211] "Stromal_cell_GSM287220"   "Stromal_cell_GSM239260"  
## [213] "Stromal_cell_GSM239379"   "Stromal_cell_GSM239457"  
## [215] "Stromal_cell_GSM239606"   "Stromal_cell_GSM239612"  
## [217] "Stromal_cell_GSM239613"   "Stromal_cell_GSM239668"  
## [219] "Stromal_cell_GSM239616"   "Stromal_cell_GSM239669"  
## [221] "Stromal_cell_GSM413847"   "Stromal_cell_GSM413846"  
## [223] "Stromal_cell_GSM413848"   "Stromal_cell_GSM260669"  
## [225] "Stromal_cell_GSM260672"   "Stromal_cell_GSM260671"  
## [227] "Stromal_cell_GSM260670"   "Stromal_cell_GSM260673"  
## [229] "Stromal_cell_GSM260682"   "Stromal_cell_GSM260685"  
## [231] "Stromal_cell_GSM260674"   "Stromal_cell_GSM260684"  
## [233] "Stromal_cell_GSM260666"   "Stromal_cell_GSM260665"  
## [235] "Stromal_cell_GSM260663"   "Stromal_cell_GSM260668"  
## [237] "Stromal_cell_GSM260664"   "Stromal_cell_GSM260675"  
## [239] "Stromal_cell_GSM260681"   "Stromal_cell_GSM260667"  
## [241] "Stromal_cell_GSM260678"   "Stromal_cell_GSM260676"  
## [243] "Stromal_cell_GSM260679"   "Stromal_cell_GSM260686"  
## [245] "Stromal_cell_GSM260680"   "Stromal_cell_GSM260683"  
## [247] "Stromal_cell_GSM451153"   "Stromal_cell_GSM451156"  
## [249] "Stromal_cell_GSM260661"   "Stromal_cell_GSM260662"  
## [251] "Stromal_cell_GSM250019"   "Stromal_cell_GSM260657"  
## [253] "Stromal_cell_GSM451154"   "Stromal_cell_GSM451157"  
## [255] "Stromal_cell_GSM451158"   "Stromal_cell_GSM250020"  
## [257] "Stromal_cell_GSM260658"   "Stromal_cell_GSM250021"  
## [259] "Stromal_cell_GSM260659"   "Stromal_cell_GSM451155"  
## [261] "Stromal_cell_GSM451160"   "Stromal_cell_GSM451161"  
## [263] "_B_Li7_liver"             "_B_SNU878_liver"         
## [265] "Stromal_cell_GSM346959"   "Stromal_cell_GSM346960"  
## [267] "Stromal_cell_GSM116106"   "Stromal_cell_GSM116103"  
## [269] "Stromal_cell_GSM116101"   "Stromal_cell_GSM116102"  
## [271] "Stromal_cell_GSM116104"   "Stromal_cell_GSM116105"  
## [273] "Stromal_cell_GSM346941"   "Stromal_cell_GSM346942"  
## [275] "Stromal_cell_GSM492834"   "Stromal_cell_GSM492835"  
## [277] "Stromal_cell_GSM322374"   "Stromal_cell_GSM322375"  
## [279] "Stromal_cell_GSM322376"   "Stromal_cell_GSM322377"  
## [281] "Stromal_cell_GSM413840"   "Stromal_cell_GSM469126"  
## [283] "Stromal_cell_GSM469130"   "Stromal_cell_GSM469127"  
## [285] "Stromal_cell_GSM469128"   "Stromal_cell_GSM469129"  
## [287] "Stromal_cell_GSM346944"   "Stromal_cell_GSM469125"  
## [289] "Stromal_cell_GSM346943"   "Stromal_cell_GSM469132"  
## [291] "Stromal_cell_GSM469131"   "Stromal_cell_GSM469136"  
## [293] "Stromal_cell_GSM265498"   "Stromal_cell_GSM265494"  
## [295] "Stromal_cell_GSM265496"   "Stromal_cell_GSM265495"  
## [297] "Stromal_cell_GSM265497"   "Stromal_cell_GSM265499"  
## [299] "Neuro_endo_GSM92232"      "Neuro_endo_GSM92234"     
## [301] "Neuro_endo_GSM92231"      "Neuro_endo_GSM92233"     
## [303] "Neuro_endo_GSM469411"     "Neuro_endo_GSM469412"    
## [305] "_B_SNU761_liver"          "_C_SKHEP1_liver"         
## [307] "_B_SNU182_liver"          "_B_SNU449_liver"         
## [309] "_B_HLE_liver"             "_B_HLF_liver"            
## [311] "_B_SNU475_liver"          "_B_SNU886_liver"         
## [313] "_B_JHH4_liver"            "_B_SNU387_liver"         
## [315] "_B_SNU423_liver"          "_B_JHH2_liver"           
## [317] "_C_JHH6_liver"            "Hepatocytes_GSM456350"   
## [319] "Hepatocytes_GSM456349"    "Hepatocytes_GSM456351"   
## [321] "_A_Alexander cells_liver" "_A_PLC_PRF_5_liver"      
## [323] "_A_HuH6_liver"            "_A_huH1_liver"           
## [325] "_A_HuH7_liver"            "_A_JHH5_liver"           
## [327] "_A_JHH7_liver"            "_A_Hep 3B2.17_liver"     
## [329] "_A_C3A_liver"             "_A_Hep G2_liver"         
## [331] "_C_JHH1_liver"            "Blood_cell_GSM359754"    
## [333] "Blood_cell_GSM359760"     "Blood_cell_GSM359758"    
## [335] "Blood_cell_GSM359753"     "Blood_cell_GSM359759"    
## [337] "Blood_cell_GSM359332"     "Blood_cell_GSM359755"    
## [339] "Blood_cell_GSM300401"     "Blood_cell_GSM300399"    
## [341] "Blood_cell_GSM300403"     "Blood_cell_GSM300404"    
## [343] "Blood_cell_GSM300392"     "Blood_cell_GSM300394"    
## [345] "Blood_cell_GSM300398"     "Blood_cell_GSM300393"    
## [347] "Blood_cell_GSM300402"     "Blood_cell_GSM300390"    
## [349] "Blood_cell_GSM300389"     "Blood_cell_GSM300395"    
## [351] "Blood_cell_GSM514672"     "Blood_cell_GSM514670"    
## [353] "Blood_cell_GSM514669"     "Blood_cell_GSM343806"    
## [355] "Blood_cell_GSM343822"     "Blood_cell_GSM343824"    
## [357] "Blood_cell_GSM514671"     "Blood_cell_GSM343817"    
## [359] "Blood_cell_GSM343819"     "Blood_cell_GSM343815"    
## [361] "Blood_cell_GSM343805"     "Blood_cell_GSM343831"    
## [363] "Blood_cell_GSM343807"     "Blood_cell_GSM343813"    
## [365] "Blood_cell_GSM343825"     "Blood_cell_GSM343811"    
## [367] "Blood_cell_GSM343829"     "Blood_cell_GSM343808"    
## [369] "Blood_cell_GSM343810"     "Blood_cell_GSM343812"    
## [371] "Blood_cell_GSM419989"     "Blood_cell_GSM343828"    
## [373] "Blood_cell_GSM343830"     "Blood_cell_GSM343816"    
## [375] "Blood_cell_GSM343818"     "Blood_cell_GSM419988"    
## [377] "Blood_cell_GSM343802"     "Blood_cell_GSM343804"    
## [379] "Blood_cell_GSM419992"     "Blood_cell_GSM419987"    
## [381] "Blood_cell_GSM419990"     "Blood_cell_GSM419991"    
## [383] "Blood_cell_GSM343821"     "Blood_cell_GSM343809"    
## [385] "Blood_cell_GSM343814"     "Blood_cell_GSM343826"    
## [387] "Blood_cell_GSM343803"     "Blood_cell_GSM343827"    
## [389] "Blood_cell_GSM343820"     "Blood_cell_GSM343823"    
## [391] "Blood_cell_GSM132924"     "Blood_cell_GSM132926"    
## [393] "Blood_cell_GSM132928"     "Blood_cell_GSM132927"    
## [395] "Blood_cell_GSM132919"     "Blood_cell_GSM132923"    
## [397] "Blood_cell_GSM132925"     "Blood_cell_GSM132921"    
## [399] "Blood_cell_GSM132922"     "Blood_cell_GSM132929"    
## [401] "Blood_cell_GSM132930"     "Blood_cell_GSM181930"    
## [403] "Blood_cell_GSM181971"     "Blood_cell_GSM181973"    
## [405] "Blood_cell_GSM181982"     "Blood_cell_GSM181997"    
## [407] "Blood_cell_GSM181931"     "Blood_cell_GSM181933"    
## [409] "Blood_cell_GSM181857"     "Blood_cell_GSM181978"    
## [411] "Blood_cell_GSM140953"     "Blood_cell_GSM160534"    
## [413] "Blood_cell_GSM140968"     "Blood_cell_GSM140969"    
## [415] "Blood_cell_GSM286088"     "Blood_cell_GSM320546"    
## [417] "Blood_cell_GSM320544"     "Blood_cell_GSM320548"    
## [419] "Blood_cell_GSM320550"     "Blood_cell_GSM320552"    
## [421] "Blood_cell_GSM320545"     "Blood_cell_GSM320551"    
## [423] "Blood_cell_GSM320547"     "Blood_cell_GSM320549"    
## [425] "Blood_cell_GSM140973"     "Blood_cell_GSM320543"    
## [427] "Blood_cell_GSM183305"     "Blood_cell_GSM183393"    
## [429] "Blood_cell_GSM183482"     "Blood_cell_GSM183467"    
## [431] "Blood_cell_GSM183392"     "Blood_cell_GSM183466"    
## [433] "Blood_cell_GSM183316"     "Blood_cell_GSM183463"    
## [435] "Blood_cell_GSM183394"     "Blood_cell_GSM183462"    
## [437] "Blood_cell_GSM183306"     "Blood_cell_GSM183217"    
## [439] "Blood_cell_GSM183315"     "Blood_cell_GSM183464"    
## [441] "Blood_cell_GSM183465"     "Blood_cell_GSM183487"    
## [443] "Blood_cell_GSM183209"     "Blood_cell_GSM183165"    
## [445] "Blood_cell_GSM183486"     "Blood_cell_GSM183196"    
## [447] "Blood_cell_GSM183483"     "Blood_cell_GSM183485"    
## [449] "Blood_cell_GSM183193"     "Blood_cell_GSM183201"    
## [451] "Blood_cell_GSM183484"     "Blood_cell_GSM112670"    
## [453] "Blood_cell_GSM112490"     "Blood_cell_GSM112668"    
## [455] "Blood_cell_GSM112540"     "Blood_cell_GSM112491"    
## [457] "Blood_cell_GSM112669"     "Blood_cell_GSM160530"    
## [459] "Blood_cell_GSM112664"     "Blood_cell_GSM112666"    
## [461] "Blood_cell_GSM112661"     "Blood_cell_GSM112665"    
## [463] "Blood_cell_GSM305433"     "Blood_cell_GSM305435"    
## [465] "Blood_cell_GSM305441"     "Blood_cell_GSM305442"    
## [467] "Blood_cell_GSM305437"     "Blood_cell_GSM305439"    
## [469] "Blood_cell_GSM182000"     "Blood_cell_GSM182002"    
## [471] "Blood_cell_GSM556663"     "Blood_cell_GSM556665"    
## [473] "Blood_cell_GSM286091"     "Blood_cell_GSM286089"    
## [475] "Blood_cell_GSM286090"     "Blood_cell_GSM286017"    
## [477] "Blood_cell_GSM286086"     "Blood_cell_GSM286087"    
## [479] "Blood_cell_GSM112541"     "Blood_cell_GSM260694"    
## [481] "Blood_cell_GSM260695"     "Blood_cell_GSM260691"    
## [483] "Blood_cell_GSM260692"     "Blood_cell_GSM260689"    
## [485] "Blood_cell_GSM260697"     "Blood_cell_GSM260699"    
## [487] "Blood_cell_GSM260693"     "Blood_cell_GSM260690"    
## [489] "Blood_cell_GSM260696"     "Blood_cell_GSM260701"    
## [491] "Blood_cell_GSM260698"     "Blood_cell_GSM260700"    
## [493] "Blood_cell_GSM181974"     "Blood_cell_GSM181976"    
## [495] "Blood_cell_GSM181981"     "Blood_cell_GSM181984"    
## [497] "Blood_cell_GSM181999"     "Blood_cell_GSM299559"    
## [499] "Blood_cell_GSM299560"     "Blood_cell_GSM299565"    
## [501] "Blood_cell_GSM160532"     "Blood_cell_GSM299564"    
## [503] "Blood_cell_GSM140970"     "Blood_cell_GSM286015"    
## [505] "Blood_cell_GSM112667"     "Blood_cell_GSM140971"    
## [507] "Blood_cell_GSM181972"     "Blood_cell_GSM264757"    
## [509] "Blood_cell_GSM264758"     "Blood_cell_GSM264755"    
## [511] "Blood_cell_GSM264756"     "Blood_cell_GSM160536"    
## [513] "Blood_cell_GSM181983"     "Blood_cell_GSM181998"    
## [515] "Blood_cell_GSM181980"     "Blood_cell_GSM182001"    
## [517] "Blood_cell_GSM549579"     "Blood_cell_GSM549577"    
## [519] "Blood_cell_GSM549578"     "Blood_cell_GSM549581"    
## [521] "Blood_cell_GSM549580"     "Blood_cell_GSM549583"    
## [523] "Blood_cell_GSM549582"     "Blood_cell_GSM549584"    
## [525] "Blood_cell_GSM361278"     "Blood_cell_GSM361266"    
## [527] "Blood_cell_GSM361272"     "Blood_cell_GSM361283"    
## [529] "Blood_cell_GSM361285"     "Blood_cell_GSM466518"    
## [531] "Blood_cell_GSM466519"     "Blood_cell_GSM466515"    
## [533] "Blood_cell_GSM466516"     "Blood_cell_GSM466517"    
## [535] "_C_NCIH684_liver"         "Blood_cell_GSM289612"    
## [537] "Blood_cell_GSM289618"     "Blood_cell_GSM289615"    
## [539] "Blood_cell_GSM289617"     "Blood_cell_GSM289616"    
## [541] "Blood_cell_GSM289613"     "Blood_cell_GSM289614"    
## [543] "Blood_cell_GSM483483"     "Blood_cell_GSM483484"    
## [545] "Blood_cell_GSM483485"     "Blood_cell_GSM483480"    
## [547] "Blood_cell_GSM483481"     "Blood_cell_GSM483482"    
## [549] "Blood_cell_GSM488980"     "Blood_cell_GSM488981"    
## [551] "Blood_cell_GSM488970"     "Blood_cell_GSM488971"    
## [553] "Blood_cell_GSM488968"     "Blood_cell_GSM488969"    
## [555] "Blood_cell_GSM488982"     "Blood_cell_GSM488983"    
## [557] "Blood_cell_GSM488974"     "Blood_cell_GSM488975"    
## [559] "Blood_cell_GSM189447"     "Blood_cell_GSM189448"    
## [561] "Blood_cell_GSM189452"     "Blood_cell_GSM189454"    
## [563] "Blood_cell_GSM189451"     "Blood_cell_GSM189453"    
## [565] "Blood_cell_GSM189449"     "Blood_cell_GSM189450"    
## [567] "Blood_cell_GSM305432"     "Blood_cell_GSM305436"    
## [569] "Blood_cell_GSM305430"     "Blood_cell_GSM305434"    
## [571] "Blood_cell_GSM182003"     "Blood_cell_GSM182004"    
## [573] "Blood_cell_GSM181932"     "Blood_cell_GSM181934"    
## [575] "Blood_cell_GSM299557"     "Blood_cell_GSM299558"    
## [577] "Blood_cell_GSM305438"     "Blood_cell_GSM299563"    
## [579] "Blood_cell_GSM299562"     "Blood_cell_GSM305440"    
## [581] "Blood_cell_GSM422113"     "Blood_cell_GSM422114"    
## [583] "Blood_cell_GSM422116"     "Blood_cell_GSM422111"    
## [585] "Blood_cell_GSM422112"     "Blood_cell_GSM422110"    
## [587] "Blood_cell_GSM140244"     "Blood_cell_GSM422109"    
## [589] "Blood_cell_GSM1209586"    "Blood_cell_GSM1209588"   
## [591] "Blood_cell_GSM1209589"    "Blood_cell_GSM1209585"   
## [593] "Blood_cell_GSM1209587"    "Blood_cell_GSM1209560"   
## [595] "Blood_cell_GSM1209558"    "Blood_cell_GSM1209559"   
## [597] "Blood_cell_GSM140245"     "Blood_cell_GSM140248"    
## [599] "Blood_cell_GSM140249"     "Blood_cell_GSM178554"    
## [601] "Blood_cell_GSM178555"     "Blood_cell_GSM140246"    
## [603] "Blood_cell_GSM140247"     "Blood_cell_GSM178550"    
## [605] "Blood_cell_GSM178551"     "Blood_cell_GSM178557"    
## [607] "Blood_cell_GSM488978"     "Blood_cell_GSM178549"    
## [609] "Blood_cell_GSM178552"     "Blood_cell_GSM178553"    
## [611] "Blood_cell_GSM488979"     "Blood_cell_GSM178558"    
## [613] "Blood_cell_GSM299561"     "Blood_cell_GSM178556"    
## [615] "Blood_cell_GSM299556"     "Blood_cell_GSM432176"    
## [617] "Blood_cell_GSM350084"     "Blood_cell_GSM350085"    
## [619] "Blood_cell_GSM350086"     "Blood_cell_GSM432180"    
## [621] "Blood_cell_GSM432178"     "Blood_cell_GSM432179"    
## [623] "Blood_cell_GSM432175"     "Blood_cell_GSM432177"    
## [625] "Blood_cell_GSM556647"     "Blood_cell_GSM488976"    
## [627] "Blood_cell_GSM488977"     "Blood_cell_GSM1209591"   
## [629] "Blood_cell_GSM1209595"    "Blood_cell_GSM1209594"   
## [631] "Blood_cell_GSM1209592"    "Blood_cell_GSM1209593"   
## [633] "Blood_cell_GSM1209598"    "Blood_cell_GSM1209597"   
## [635] "Blood_cell_GSM1209596"    "Blood_cell_GSM1209599"   
## [637] "Blood_cell_GSM279574"     "Blood_cell_GSM279580"    
## [639] "Blood_cell_GSM279577"     "Blood_cell_GSM279578"    
## [641] "Blood_cell_GSM279581"     "Blood_cell_GSM279582"    
## [643] "Blood_cell_GSM279575"     "Blood_cell_GSM279576"    
## [645] "Blood_cell_GSM279572"     "Blood_cell_GSM279573"    
## [647] "Blood_cell_GSM279583"     "Blood_cell_GSM279579"    
## [649] "Blood_cell_GSM279584"     "Blood_cell_GSM372813"    
## [651] "Blood_cell_GSM372804"     "Blood_cell_GSM372803"    
## [653] "Blood_cell_GSM372810"     "Blood_cell_GSM372816"    
## [655] "Blood_cell_GSM372818"     "Blood_cell_GSM372800"    
## [657] "Blood_cell_GSM372809"     "Blood_cell_GSM372811"    
## [659] "Blood_cell_GSM372808"     "Blood_cell_GSM372817"    
## [661] "Blood_cell_GSM372806"     "Blood_cell_GSM372807"    
## [663] "Blood_cell_GSM372801"     "Blood_cell_GSM372802"    
## [665] "Blood_cell_GSM372812"     "Blood_cell_GSM372805"    
## [667] "Blood_cell_GSM372814"     "Blood_cell_GSM372815"    
## [669] "Blood_cell_GSM1209577"    "Blood_cell_GSM1209580"   
## [671] "Blood_cell_GSM1209578"    "Blood_cell_GSM1209579"   
## [673] "Blood_cell_GSM1209582"    "Blood_cell_GSM1209561"   
## [675] "Blood_cell_GSM1209576"    "Blood_cell_GSM1209563"   
## [677] "Blood_cell_GSM1209573"    "Blood_cell_GSM1209562"   
## [679] "Blood_cell_GSM1209583"    "Blood_cell_GSM1209575"   
## [681] "Blood_cell_GSM1209581"    "Blood_cell_GSM1209574"   
## [683] "Blood_cell_GSM1209584"    "Blood_cell_GSM153893"    
## [685] "Blood_cell_GSM154073"     "Blood_cell_GSM154084"    
## [687] "Blood_cell_GSM154077"     "Blood_cell_GSM154078"    
## [689] "Blood_cell_GSM154081"     "Blood_cell_GSM547998"    
## [691] "Blood_cell_GSM548000"     "Blood_cell_GSM547999"    
## [693] "Blood_cell_GSM548001"     "Blood_cell_GSM542578"    
## [695] "Blood_cell_GSM349848"     "Blood_cell_GSM349849"    
## [697] "Blood_cell_GSM310429"     "Blood_cell_GSM198944"    
## [699] "Blood_cell_GSM198945"     "Blood_cell_GSM198942"    
## [701] "Blood_cell_GSM198943"     "Blood_cell_GSM381341"    
## [703] "Blood_cell_GSM381343"     "Blood_cell_GSM381339"    
## [705] "Blood_cell_GSM381345"     "Blood_cell_GSM381340"    
## [707] "Blood_cell_GSM381346"     "Blood_cell_GSM381342"    
## [709] "Blood_cell_GSM381344"     "Blood_cell_GSM310440"    
## [711] "Blood_cell_GSM488972"     "Blood_cell_GSM488973"    
## [713] "Blood_cell_GSM310431"     "Blood_cell_GSM310437"    
## [715] "Blood_cell_GSM310439"     "Blood_cell_GSM310432"    
## [717] "Blood_cell_GSM310436"     "Blood_cell_GSM310433"    
## [719] "Blood_cell_GSM310434"     "Blood_cell_GSM310435"    
## [721] "Blood_cell_GSM310430"     "Blood_cell_GSM310438"    
## [723] "Blood_cell_GSM290420"     "Blood_cell_GSM290414"    
## [725] "Blood_cell_GSM290415"     "Blood_cell_GSM290421"    
## [727] "Blood_cell_GSM290423"     "Blood_cell_GSM1209554"   
## [729] "Blood_cell_GSM1209569"    "Blood_cell_GSM1209556"   
## [731] "Blood_cell_GSM1209572"    "Blood_cell_GSM1209555"   
## [733] "Blood_cell_GSM1209557"    "Blood_cell_GSM1209564"   
## [735] "Blood_cell_GSM1209568"    "Blood_cell_GSM1209566"   
## [737] "Blood_cell_GSM1209570"    "Blood_cell_GSM1209567"   
## [739] "Blood_cell_GSM1209590"    "Blood_cell_GSM1209565"   
## [741] "Blood_cell_GSM1209571"
row_clst$order
##   [1] 679 681 676 678 512 510 511 617 129 128 133 131 130 132 692 690 691
##  [18] 551 549 550 683 741 664 663 665 660 662 652 653 656 654 655 475 661
##  [35] 535 471 470 472 477 476 478 231 232 677 680 682 513 515 498 514 503
##  [52] 504 505 506 497 501 502 499 500 687 688 684 686 685 689 377 375 376
##  [69] 122 123 144 143 145 140 141 148 146 142 147 154 152 153 137 158 155
##  [86] 138 139 156 157 136 149 150 151 134 135  19  24  22  20  21  23  27
## [103]  25  26  28 348 347 349 350 351 352 561 562 563 560 552 555 553 554
## [120] 559 564 557 556 558 565 566 567 111 112 114 115 102 113 393 390 391
## [137] 622 621 624 620 623 647 648  99 100  98 101 421 103 428 420 424 427
## [154] 425 546 547 104 544 545 467 466 706 422 429 423 426 430 431 106 105
## [171] 108 109 110 107 392 569 507 508 509 496 548 651 473 474 657 658 659
## [188] 666 671 667 670 668 669 249 251 252 250 253 245 246 248 255 247 254
## [205] 256 332 331 334 330 329 333 233 234 235 236 237 238 240 239 241 571
## [222] 570 572 268 271 270 269 272 280 283 273 282 265 264 262 267 263 274
## [239] 279 266 276 275 277 284 278 281 592 595 260 261 242 257 593 596 597
## [256] 243 258 244 259 594 598 599 728 735 468 469  18  15  13  14  16  17
## [273] 462 463 649 650 416 417 418 419 568 609 613 610 611 612 465 608 464
## [290] 615 614 616 306 302 304 303 305 307 711 713 710 712 618 619 734 740
## [307] 729 732 724 725 733 736 727 730 731 726 738 601 600 602 714 723 719
## [324] 718 720 721 722 716 715 717 737 486 490 488 485 489 484 487 371 370
## [341] 373 374 365 367 369 366 372 364 363 368 675 673 672 436 452 454 674
## [358] 447 449 445 435 461 437 443 455 441 459 438 440 442 575 458 460 446
## [375] 448 574 432 434 578 573 576 577 451 439 444 456 433 457 450 453  79
## [392]  81  83  82  75  78  80  76  77  84  85 170 175 177 183 186 171 173
## [409] 169 180  92 126  93  94 325 409 407 411 413 415 408 414 410 412  97
## [426] 406 200 205 213 212 204 211 203 208 206 207 201 199 202 209 210 218
## [443] 198 194 217 196 214 216 195 197 215  12   1  10   3   2  11 124   6
## [460]   8   5   7 380 382 388 389 384 386 189 191 708 709 328 326 327 322
## [477] 323 324   4 290 291 287 288 285 293 295 289 286 292 297 294 296 178
## [494] 179 182 185 188 356 357 362 125 361  95 321   9  96 176 300 301 298
## [511] 299 127 184 187 181 190 700 698 699 702 701 704 703 705 493 491 492
## [528] 494 495 606 607 603 604 605 739 335 341 338 340 339 336 337 628 629
## [545] 630 625 626 627 643 644 633 634 631 632 645 646 637 638 219 220 224
## [562] 226 223 225 221 222 379 383 378 381 192 193 172 174 354 355 385 360
## [579] 359 387 583 584 585 581 582 580  86 579  61  63  64  60  62  35  33
## [596]  34  87  90  91 164 165  88  89 160 161 167 641 159 162 163 642 168
## [613] 358 166 353 587 481 482 483 591 589 590 586 588 707 639 640  66  70
## [630]  69  67  68  73  72  71  74 310 316 313 314 317 318 311 312 308 309
## [647] 319 315 320 529 520 519 526 532 534 516 525 527 524 533 522 523 517
## [664] 518 528 521 530 531  52  55  53  54  57  36  51  38  48  37  58  50
## [681]  56  49  59 116 117 121 118 119 120 694 696 695 697 693 479 480 394
## [698] 229 230 227 228 538 540 536 542 537 543 539 541 405 635 636 396 402
## [715] 404 397 401 398 399 400 395 403 344 342 343 345 346  29  44  31  47
## [732]  30  32  39  43  41  45  42  65  40  46
cutree(row_clst, k = 10)
##     Blood_cell_GSM112490     Blood_cell_GSM112491     Blood_cell_GSM112540 
##                        1                        1                        1 
##     Blood_cell_GSM112541     Blood_cell_GSM112661     Blood_cell_GSM112664 
##                        1                        1                        1 
##     Blood_cell_GSM112665     Blood_cell_GSM112666     Blood_cell_GSM112667 
##                        1                        1                        1 
##     Blood_cell_GSM112668     Blood_cell_GSM112669     Blood_cell_GSM112670 
##                        1                        1                        1 
##   Stromal_cell_GSM116101   Stromal_cell_GSM116102   Stromal_cell_GSM116103 
##                        2                        2                        2 
##   Stromal_cell_GSM116104   Stromal_cell_GSM116105   Stromal_cell_GSM116106 
##                        2                        2                        2 
##          Other_GSM119354          Other_GSM119357          Other_GSM119359 
##                        3                        3                        3 
##          Other_GSM119360          Other_GSM119361          Other_GSM119362 
##                        3                        3                        3 
##          Other_GSM119366          Other_GSM119369          Other_GSM119371 
##                        3                        3                        3 
##          Other_GSM119372    Blood_cell_GSM1209554    Blood_cell_GSM1209555 
##                        3                        4                        4 
##    Blood_cell_GSM1209556    Blood_cell_GSM1209557    Blood_cell_GSM1209558 
##                        4                        4                        5 
##    Blood_cell_GSM1209559    Blood_cell_GSM1209560    Blood_cell_GSM1209561 
##                        5                        5                        4 
##    Blood_cell_GSM1209562    Blood_cell_GSM1209563    Blood_cell_GSM1209564 
##                        4                        4                        4 
##    Blood_cell_GSM1209565    Blood_cell_GSM1209566    Blood_cell_GSM1209567 
##                        4                        4                        4 
##    Blood_cell_GSM1209568    Blood_cell_GSM1209569    Blood_cell_GSM1209570 
##                        4                        4                        4 
##    Blood_cell_GSM1209571    Blood_cell_GSM1209572    Blood_cell_GSM1209573 
##                        4                        4                        4 
##    Blood_cell_GSM1209574    Blood_cell_GSM1209575    Blood_cell_GSM1209576 
##                        4                        4                        4 
##    Blood_cell_GSM1209577    Blood_cell_GSM1209578    Blood_cell_GSM1209579 
##                        4                        4                        4 
##    Blood_cell_GSM1209580    Blood_cell_GSM1209581    Blood_cell_GSM1209582 
##                        4                        4                        4 
##    Blood_cell_GSM1209583    Blood_cell_GSM1209584    Blood_cell_GSM1209585 
##                        4                        4                        5 
##    Blood_cell_GSM1209586    Blood_cell_GSM1209587    Blood_cell_GSM1209588 
##                        5                        5                        5 
##    Blood_cell_GSM1209589    Blood_cell_GSM1209590    Blood_cell_GSM1209591 
##                        5                        4                        6 
##    Blood_cell_GSM1209592    Blood_cell_GSM1209593    Blood_cell_GSM1209594 
##                        6                        6                        6 
##    Blood_cell_GSM1209595    Blood_cell_GSM1209596    Blood_cell_GSM1209597 
##                        6                        6                        6 
##    Blood_cell_GSM1209598    Blood_cell_GSM1209599     Blood_cell_GSM132919 
##                        6                        6                        1 
##     Blood_cell_GSM132921     Blood_cell_GSM132922     Blood_cell_GSM132923 
##                        1                        1                        1 
##     Blood_cell_GSM132924     Blood_cell_GSM132925     Blood_cell_GSM132926 
##                        1                        1                        1 
##     Blood_cell_GSM132927     Blood_cell_GSM132928     Blood_cell_GSM132929 
##                        1                        1                        1 
##     Blood_cell_GSM132930     Blood_cell_GSM140244     Blood_cell_GSM140245 
##                        1                        5                        5 
##     Blood_cell_GSM140246     Blood_cell_GSM140247     Blood_cell_GSM140248 
##                        5                        5                        5 
##     Blood_cell_GSM140249     Blood_cell_GSM140953     Blood_cell_GSM140968 
##                        5                        1                        1 
##     Blood_cell_GSM140969     Blood_cell_GSM140970     Blood_cell_GSM140971 
##                        1                        1                        1 
##     Blood_cell_GSM140973       Endothel_GSM141251       Endothel_GSM141252 
##                        1                        7                        7 
##       Endothel_GSM141253       Endothel_GSM141255       Endothel_GSM143717 
##                        7                        7                        7 
##       Endothel_GSM143726       Endothel_GSM143727       Endothel_GSM143728 
##                        7                        7                        7 
##       Endothel_GSM143729       Endothel_GSM143730       Endothel_GSM143731 
##                        7                        7                        7 
##       Endothel_GSM143732       Endothel_GSM143733       Endothel_GSM143898 
##                        7                        7                        7 
##       Endothel_GSM143900       Endothel_GSM143907       Endothel_GSM143910 
##                        7                        7                        7 
##       Endothel_GSM143914     Blood_cell_GSM153893     Blood_cell_GSM154073 
##                        7                        4                        4 
##     Blood_cell_GSM154077     Blood_cell_GSM154078     Blood_cell_GSM154081 
##                        4                        4                        4 
##     Blood_cell_GSM154084    ES_iPS_germ_GSM158468    ES_iPS_germ_GSM158470 
##                        4                        8                        8 
##     Blood_cell_GSM160530     Blood_cell_GSM160532     Blood_cell_GSM160534 
##                        1                        1                        1 
##     Blood_cell_GSM160536    ES_iPS_germ_GSM172865    ES_iPS_germ_GSM172866 
##                        1                        9                        9 
##    ES_iPS_germ_GSM172867    ES_iPS_germ_GSM172868    ES_iPS_germ_GSM172869 
##                        9                        9                        9 
##    ES_iPS_germ_GSM172870          Other_GSM173532          Other_GSM173533 
##                        9                        3                        3 
##          Other_GSM173534          Other_GSM173535          Other_GSM173536 
##                        3                        3                        3 
##          Other_GSM173537          Other_GSM173538          Other_GSM173539 
##                        3                        3                        3 
##          Other_GSM173540          Other_GSM173541          Other_GSM173542 
##                        3                        3                        3 
##          Other_GSM173543          Other_GSM173544          Other_GSM173545 
##                        3                        3                        3 
##          Other_GSM173546          Other_GSM173547          Other_GSM173548 
##                        3                        3                        3 
##          Other_GSM173549          Other_GSM173550          Other_GSM173551 
##                        3                        3                        3 
##          Other_GSM173552          Other_GSM173553          Other_GSM173554 
##                        3                        3                        3 
##          Other_GSM173555          Other_GSM173556     Blood_cell_GSM178549 
##                        3                        3                        5 
##     Blood_cell_GSM178550     Blood_cell_GSM178551     Blood_cell_GSM178552 
##                        5                        5                        5 
##     Blood_cell_GSM178553     Blood_cell_GSM178554     Blood_cell_GSM178555 
##                        5                        5                        5 
##     Blood_cell_GSM178556     Blood_cell_GSM178557     Blood_cell_GSM178558 
##                        5                        5                        5 
##     Blood_cell_GSM181857     Blood_cell_GSM181930     Blood_cell_GSM181931 
##                        1                        1                        1 
##     Blood_cell_GSM181932     Blood_cell_GSM181933     Blood_cell_GSM181934 
##                        5                        1                        5 
##     Blood_cell_GSM181971     Blood_cell_GSM181972     Blood_cell_GSM181973 
##                        1                        1                        1 
##     Blood_cell_GSM181974     Blood_cell_GSM181976     Blood_cell_GSM181978 
##                        1                        1                        1 
##     Blood_cell_GSM181980     Blood_cell_GSM181981     Blood_cell_GSM181982 
##                        1                        1                        1 
##     Blood_cell_GSM181983     Blood_cell_GSM181984     Blood_cell_GSM181997 
##                        1                        1                        1 
##     Blood_cell_GSM181998     Blood_cell_GSM181999     Blood_cell_GSM182000 
##                        1                        1                        1 
##     Blood_cell_GSM182001     Blood_cell_GSM182002     Blood_cell_GSM182003 
##                        1                        1                        5 
##     Blood_cell_GSM182004     Blood_cell_GSM183165     Blood_cell_GSM183193 
##                        5                        1                        1 
##     Blood_cell_GSM183196     Blood_cell_GSM183201     Blood_cell_GSM183209 
##                        1                        1                        1 
##     Blood_cell_GSM183217     Blood_cell_GSM183305     Blood_cell_GSM183306 
##                        1                        1                        1 
##     Blood_cell_GSM183315     Blood_cell_GSM183316     Blood_cell_GSM183392 
##                        1                        1                        1 
##     Blood_cell_GSM183393     Blood_cell_GSM183394     Blood_cell_GSM183462 
##                        1                        1                        1 
##     Blood_cell_GSM183463     Blood_cell_GSM183464     Blood_cell_GSM183465 
##                        1                        1                        1 
##     Blood_cell_GSM183466     Blood_cell_GSM183467     Blood_cell_GSM183482 
##                        1                        1                        1 
##     Blood_cell_GSM183483     Blood_cell_GSM183484     Blood_cell_GSM183485 
##                        1                        1                        1 
##     Blood_cell_GSM183486     Blood_cell_GSM183487     Blood_cell_GSM189447 
##                        1                        1                        5 
##     Blood_cell_GSM189448     Blood_cell_GSM189449     Blood_cell_GSM189450 
##                        5                        5                        5 
##     Blood_cell_GSM189451     Blood_cell_GSM189452     Blood_cell_GSM189453 
##                        5                        5                        5 
##     Blood_cell_GSM189454     Blood_cell_GSM198942     Blood_cell_GSM198943 
##                        5                        4                        4 
##     Blood_cell_GSM198944     Blood_cell_GSM198945    ES_iPS_germ_GSM225042 
##                        4                        4                        9 
##    ES_iPS_germ_GSM230294   Stromal_cell_GSM239260   Stromal_cell_GSM239379 
##                        9                        2                        2 
##   Stromal_cell_GSM239457   Stromal_cell_GSM239606   Stromal_cell_GSM239612 
##                        2                        2                        2 
##   Stromal_cell_GSM239613   Stromal_cell_GSM239616   Stromal_cell_GSM239668 
##                        2                        2                        2 
##   Stromal_cell_GSM239669   Stromal_cell_GSM250019   Stromal_cell_GSM250020 
##                        2                        2                        2 
##   Stromal_cell_GSM250021   Stromal_cell_GSM260305   Stromal_cell_GSM260306 
##                        2                        2                        2 
##   Stromal_cell_GSM260307   Stromal_cell_GSM260308   Stromal_cell_GSM260309 
##                        2                        2                        2 
##   Stromal_cell_GSM260310   Stromal_cell_GSM260311   Stromal_cell_GSM260312 
##                        2                        2                        2 
##   Stromal_cell_GSM260313   Stromal_cell_GSM260314   Stromal_cell_GSM260321 
##                        2                        2                        2 
##   Stromal_cell_GSM260322   Stromal_cell_GSM260657   Stromal_cell_GSM260658 
##                        2                        2                        2 
##   Stromal_cell_GSM260659   Stromal_cell_GSM260661   Stromal_cell_GSM260662 
##                        2                        2                        2 
##   Stromal_cell_GSM260663   Stromal_cell_GSM260664   Stromal_cell_GSM260665 
##                        2                        2                        2 
##   Stromal_cell_GSM260666   Stromal_cell_GSM260667   Stromal_cell_GSM260668 
##                        2                        2                        2 
##   Stromal_cell_GSM260669   Stromal_cell_GSM260670   Stromal_cell_GSM260671 
##                        2                        2                        2 
##   Stromal_cell_GSM260672   Stromal_cell_GSM260673   Stromal_cell_GSM260674 
##                        2                        2                        2 
##   Stromal_cell_GSM260675   Stromal_cell_GSM260676   Stromal_cell_GSM260678 
##                        2                        2                        2 
##   Stromal_cell_GSM260679   Stromal_cell_GSM260680   Stromal_cell_GSM260681 
##                        2                        2                        2 
##   Stromal_cell_GSM260682   Stromal_cell_GSM260683   Stromal_cell_GSM260684 
##                        2                        2                        2 
##   Stromal_cell_GSM260685   Stromal_cell_GSM260686     Blood_cell_GSM260689 
##                        2                        2                        1 
##     Blood_cell_GSM260690     Blood_cell_GSM260691     Blood_cell_GSM260692 
##                        1                        1                        1 
##     Blood_cell_GSM260693     Blood_cell_GSM260694     Blood_cell_GSM260695 
##                        1                        1                        1 
##     Blood_cell_GSM260696     Blood_cell_GSM260697     Blood_cell_GSM260698 
##                        1                        1                        1 
##     Blood_cell_GSM260699     Blood_cell_GSM260700     Blood_cell_GSM260701 
##                        1                        1                        1 
##     Blood_cell_GSM264755     Blood_cell_GSM264756     Blood_cell_GSM264757 
##                        1                        1                        1 
##     Blood_cell_GSM264758   Stromal_cell_GSM265494   Stromal_cell_GSM265495 
##                        1                        2                        2 
##   Stromal_cell_GSM265496   Stromal_cell_GSM265497   Stromal_cell_GSM265498 
##                        2                        2                        2 
##   Stromal_cell_GSM265499     Blood_cell_GSM279572     Blood_cell_GSM279573 
##                        2                        4                        4 
##     Blood_cell_GSM279574     Blood_cell_GSM279575     Blood_cell_GSM279576 
##                        4                        4                        4 
##     Blood_cell_GSM279577     Blood_cell_GSM279578     Blood_cell_GSM279579 
##                        4                        4                        4 
##     Blood_cell_GSM279580     Blood_cell_GSM279581     Blood_cell_GSM279582 
##                        4                        4                        4 
##     Blood_cell_GSM279583     Blood_cell_GSM279584     Blood_cell_GSM286015 
##                        4                        4                        1 
##     Blood_cell_GSM286017     Blood_cell_GSM286086     Blood_cell_GSM286087 
##                        1                        1                        1 
##     Blood_cell_GSM286088     Blood_cell_GSM286089     Blood_cell_GSM286090 
##                        1                        1                        1 
##     Blood_cell_GSM286091   Stromal_cell_GSM287216   Stromal_cell_GSM287217 
##                        1                        2                        2 
##   Stromal_cell_GSM287218   Stromal_cell_GSM287219   Stromal_cell_GSM287220 
##                        2                        2                        2 
##   Stromal_cell_GSM287222     Blood_cell_GSM289612     Blood_cell_GSM289613 
##                        2                        5                        5 
##     Blood_cell_GSM289614     Blood_cell_GSM289615     Blood_cell_GSM289616 
##                        5                        5                        5 
##     Blood_cell_GSM289617     Blood_cell_GSM289618     Blood_cell_GSM290414 
##                        5                        5                        4 
##     Blood_cell_GSM290415     Blood_cell_GSM290420     Blood_cell_GSM290421 
##                        4                        4                        4 
##     Blood_cell_GSM290423          Other_GSM299095          Other_GSM299096 
##                        4                        3                        3 
##          Other_GSM299097          Other_GSM299098          Other_GSM299099 
##                        3                        3                        3 
##          Other_GSM299100     Blood_cell_GSM299556     Blood_cell_GSM299557 
##                        3                        5                        5 
##     Blood_cell_GSM299558     Blood_cell_GSM299559     Blood_cell_GSM299560 
##                        5                        1                        1 
##     Blood_cell_GSM299561     Blood_cell_GSM299562     Blood_cell_GSM299563 
##                        5                        5                        5 
##     Blood_cell_GSM299564     Blood_cell_GSM299565     Blood_cell_GSM300389 
##                        1                        1                        1 
##     Blood_cell_GSM300390     Blood_cell_GSM300392     Blood_cell_GSM300393 
##                        1                        1                        1 
##     Blood_cell_GSM300394     Blood_cell_GSM300395     Blood_cell_GSM300398 
##                        1                        1                        1 
##     Blood_cell_GSM300399     Blood_cell_GSM300401     Blood_cell_GSM300402 
##                        1                        1                        1 
##     Blood_cell_GSM300403     Blood_cell_GSM300404    ES_iPS_germ_GSM304260 
##                        1                        1                        8 
##    ES_iPS_germ_GSM304261    ES_iPS_germ_GSM304262     Blood_cell_GSM305430 
##                        8                        8                        5 
##     Blood_cell_GSM305432     Blood_cell_GSM305433     Blood_cell_GSM305434 
##                        5                        1                        5 
##     Blood_cell_GSM305435     Blood_cell_GSM305436     Blood_cell_GSM305437 
##                        1                        5                        1 
##     Blood_cell_GSM305438     Blood_cell_GSM305439     Blood_cell_GSM305440 
##                        5                        1                        5 
##     Blood_cell_GSM305441     Blood_cell_GSM305442       Endothel_GSM305784 
##                        1                        1                        7 
##       Endothel_GSM305785       Endothel_GSM305786       Endothel_GSM305787 
##                        7                        7                        7 
##     Blood_cell_GSM310429     Blood_cell_GSM310430     Blood_cell_GSM310431 
##                        4                        4                        4 
##     Blood_cell_GSM310432     Blood_cell_GSM310433     Blood_cell_GSM310434 
##                        4                        4                        4 
##     Blood_cell_GSM310435     Blood_cell_GSM310436     Blood_cell_GSM310437 
##                        4                        4                        4 
##     Blood_cell_GSM310438     Blood_cell_GSM310439     Blood_cell_GSM310440 
##                        4                        4                        4 
##     Blood_cell_GSM320543     Blood_cell_GSM320544     Blood_cell_GSM320545 
##                        1                        1                        1 
##     Blood_cell_GSM320546     Blood_cell_GSM320547     Blood_cell_GSM320548 
##                        1                        1                        1 
##     Blood_cell_GSM320549     Blood_cell_GSM320550     Blood_cell_GSM320551 
##                        1                        1                        1 
##     Blood_cell_GSM320552   Stromal_cell_GSM322374   Stromal_cell_GSM322375 
##                        1                        2                        2 
##   Stromal_cell_GSM322376   Stromal_cell_GSM322377       Endothel_GSM330313 
##                        2                        2                        7 
##       Endothel_GSM330314       Endothel_GSM330315       Endothel_GSM330316 
##                        7                        7                        7 
##       Endothel_GSM335393       Endothel_GSM335395       Endothel_GSM335396 
##                        7                        7                        7 
##       Endothel_GSM335851       Endothel_GSM335859       Endothel_GSM335904 
##                        7                        7                        7 
##       Endothel_GSM335906       Endothel_GSM336559     Blood_cell_GSM343802 
##                        7                        7                        1 
##     Blood_cell_GSM343803     Blood_cell_GSM343804     Blood_cell_GSM343805 
##                        1                        1                        1 
##     Blood_cell_GSM343806     Blood_cell_GSM343807     Blood_cell_GSM343808 
##                        1                        1                        1 
##     Blood_cell_GSM343809     Blood_cell_GSM343810     Blood_cell_GSM343811 
##                        1                        1                        1 
##     Blood_cell_GSM343812     Blood_cell_GSM343813     Blood_cell_GSM343814 
##                        1                        1                        1 
##     Blood_cell_GSM343815     Blood_cell_GSM343816     Blood_cell_GSM343817 
##                        1                        1                        1 
##     Blood_cell_GSM343818     Blood_cell_GSM343819     Blood_cell_GSM343820 
##                        1                        1                        1 
##     Blood_cell_GSM343821     Blood_cell_GSM343822     Blood_cell_GSM343823 
##                        1                        1                        1 
##     Blood_cell_GSM343824     Blood_cell_GSM343825     Blood_cell_GSM343826 
##                        1                        1                        1 
##     Blood_cell_GSM343827     Blood_cell_GSM343828     Blood_cell_GSM343829 
##                        1                        1                        1 
##     Blood_cell_GSM343830     Blood_cell_GSM343831   Stromal_cell_GSM346941 
##                        1                        1                        2 
##   Stromal_cell_GSM346942   Stromal_cell_GSM346943   Stromal_cell_GSM346944 
##                        2                        2                        2 
##       Endothel_GSM346951       Endothel_GSM346952   Stromal_cell_GSM346959 
##                        7                        7                        2 
##   Stromal_cell_GSM346960    ES_iPS_germ_GSM347916    ES_iPS_germ_GSM347917 
##                        2                        9                        9 
##    ES_iPS_germ_GSM347918   Stromal_cell_GSM347919   Stromal_cell_GSM347920 
##                        9                        2                        2 
##    ES_iPS_germ_GSM347922    ES_iPS_germ_GSM347923    ES_iPS_germ_GSM347924 
##                        9                        9                        9 
##    ES_iPS_germ_GSM347925     Blood_cell_GSM349848     Blood_cell_GSM349849 
##                        9                        4                        4 
##     Blood_cell_GSM350084     Blood_cell_GSM350085     Blood_cell_GSM350086 
##                        5                        5                        5 
##     Blood_cell_GSM359332     Blood_cell_GSM359753     Blood_cell_GSM359754 
##                        1                        1                        1 
##     Blood_cell_GSM359755     Blood_cell_GSM359758     Blood_cell_GSM359759 
##                        1                        1                        1 
##     Blood_cell_GSM359760     Blood_cell_GSM361266     Blood_cell_GSM361272 
##                        1                        5                        5 
##     Blood_cell_GSM361278     Blood_cell_GSM361283     Blood_cell_GSM361285 
##                        5                        5                        5 
##   Stromal_cell_GSM366942    ES_iPS_germ_GSM367061    ES_iPS_germ_GSM367062 
##                        2                        9                        9 
##    ES_iPS_germ_GSM367219    ES_iPS_germ_GSM367240    ES_iPS_germ_GSM367241 
##                        9                        9                        9 
##    ES_iPS_germ_GSM367242    ES_iPS_germ_GSM367243    ES_iPS_germ_GSM367244 
##                        9                        9                        9 
##    ES_iPS_germ_GSM367245    ES_iPS_germ_GSM367258   Stromal_cell_GSM372142 
##                        9                        9                        2 
##   Stromal_cell_GSM372144   Stromal_cell_GSM372146    ES_iPS_germ_GSM372154 
##                        2                        2                        9 
##    ES_iPS_germ_GSM372155    ES_iPS_germ_GSM372156    ES_iPS_germ_GSM372157 
##                        9                        9                        9 
##    ES_iPS_germ_GSM372158    ES_iPS_germ_GSM372159     Blood_cell_GSM372800 
##                        9                        9                        4 
##     Blood_cell_GSM372801     Blood_cell_GSM372802     Blood_cell_GSM372803 
##                        4                        4                        4 
##     Blood_cell_GSM372804     Blood_cell_GSM372805     Blood_cell_GSM372806 
##                        4                        4                        4 
##     Blood_cell_GSM372807     Blood_cell_GSM372808     Blood_cell_GSM372809 
##                        4                        4                        4 
##     Blood_cell_GSM372810     Blood_cell_GSM372811     Blood_cell_GSM372812 
##                        4                        4                        4 
##     Blood_cell_GSM372813     Blood_cell_GSM372814     Blood_cell_GSM372815 
##                        4                        4                        4 
##     Blood_cell_GSM372816     Blood_cell_GSM372817     Blood_cell_GSM372818 
##                        4                        4                        4 
##    ES_iPS_germ_GSM378811     Blood_cell_GSM381339     Blood_cell_GSM381340 
##                        9                        4                        4 
##     Blood_cell_GSM381341     Blood_cell_GSM381342     Blood_cell_GSM381343 
##                        4                        4                        4 
##     Blood_cell_GSM381344     Blood_cell_GSM381345     Blood_cell_GSM381346 
##                        4                        4                        4 
##       Endothel_GSM385333       Endothel_GSM385338       Endothel_GSM385350 
##                        7                        7                        7 
##       Endothel_GSM385353   Stromal_cell_GSM402707    ES_iPS_germ_GSM402717 
##                        7                        2                        9 
##    ES_iPS_germ_GSM402752    ES_iPS_germ_GSM402806       Endothel_GSM410666 
##                        9                        9                        7 
##       Endothel_GSM410667       Endothel_GSM410668       Endothel_GSM410669 
##                        7                        7                        7 
##       Endothel_GSM410672       Endothel_GSM410673       Endothel_GSM410674 
##                        7                        7                        7 
##       Endothel_GSM410675       Endothel_GSM410678       Endothel_GSM410679 
##                        7                        7                        7 
##       Endothel_GSM410680       Endothel_GSM410681       Endothel_GSM410684 
##                        7                        7                        7 
##       Endothel_GSM410685       Endothel_GSM410686       Endothel_GSM410687 
##                        7                        7                        7 
##   Stromal_cell_GSM413840   Stromal_cell_GSM413842   Stromal_cell_GSM413846 
##                        2                        2                        2 
##   Stromal_cell_GSM413847   Stromal_cell_GSM413848     Blood_cell_GSM419987 
##                        2                        2                        1 
##     Blood_cell_GSM419988     Blood_cell_GSM419989     Blood_cell_GSM419990 
##                        1                        1                        1 
##     Blood_cell_GSM419991     Blood_cell_GSM419992     Blood_cell_GSM422109 
##                        1                        1                        5 
##     Blood_cell_GSM422110     Blood_cell_GSM422111     Blood_cell_GSM422112 
##                        5                        5                        5 
##     Blood_cell_GSM422113     Blood_cell_GSM422114     Blood_cell_GSM422116 
##                        5                        5                        5 
##     Blood_cell_GSM432175     Blood_cell_GSM432176     Blood_cell_GSM432177 
##                        5                        5                        5 
##     Blood_cell_GSM432178     Blood_cell_GSM432179     Blood_cell_GSM432180 
##                        5                        5                        5 
##   Stromal_cell_GSM451153   Stromal_cell_GSM451154   Stromal_cell_GSM451155 
##                        2                        2                        2 
##   Stromal_cell_GSM451156   Stromal_cell_GSM451157   Stromal_cell_GSM451158 
##                        2                        2                        2 
##   Stromal_cell_GSM451160   Stromal_cell_GSM451161    Hepatocytes_GSM456349 
##                        2                        2                       10 
##    Hepatocytes_GSM456350    Hepatocytes_GSM456351     Blood_cell_GSM466515 
##                       10                       10                        5 
##     Blood_cell_GSM466516     Blood_cell_GSM466517     Blood_cell_GSM466518 
##                        5                        5                        5 
##     Blood_cell_GSM466519   Stromal_cell_GSM469125   Stromal_cell_GSM469126 
##                        5                        2                        2 
##   Stromal_cell_GSM469127   Stromal_cell_GSM469128   Stromal_cell_GSM469129 
##                        2                        2                        2 
##   Stromal_cell_GSM469130   Stromal_cell_GSM469131   Stromal_cell_GSM469132 
##                        2                        2                        2 
##   Stromal_cell_GSM469136    ES_iPS_germ_GSM469409     Neuro_endo_GSM469411 
##                        2                        9                        2 
##     Neuro_endo_GSM469412       Endothel_GSM476782       Endothel_GSM476783 
##                        2                        7                        7 
##       Endothel_GSM476784       Endothel_GSM476785       Endothel_GSM476786 
##                        7                        7                        7 
##     Blood_cell_GSM483480     Blood_cell_GSM483481     Blood_cell_GSM483482 
##                        5                        5                        5 
##     Blood_cell_GSM483483     Blood_cell_GSM483484     Blood_cell_GSM483485 
##                        5                        5                        5 
##     Blood_cell_GSM488968     Blood_cell_GSM488969     Blood_cell_GSM488970 
##                        5                        5                        5 
##     Blood_cell_GSM488971     Blood_cell_GSM488972     Blood_cell_GSM488973 
##                        5                        4                        4 
##     Blood_cell_GSM488974     Blood_cell_GSM488975     Blood_cell_GSM488976 
##                        5                        5                        5 
##     Blood_cell_GSM488977     Blood_cell_GSM488978     Blood_cell_GSM488979 
##                        5                        5                        5 
##     Blood_cell_GSM488980     Blood_cell_GSM488981     Blood_cell_GSM488982 
##                        5                        5                        5 
##     Blood_cell_GSM488983       Endothel_GSM492832       Endothel_GSM492833 
##                        5                        7                        7 
##   Stromal_cell_GSM492834   Stromal_cell_GSM492835   Stromal_cell_GSM500995 
##                        2                        2                        2 
##    ES_iPS_germ_GSM500996    ES_iPS_germ_GSM500997    ES_iPS_germ_GSM500998 
##                        9                        9                        9 
##    ES_iPS_germ_GSM500999    ES_iPS_germ_GSM501000   Stromal_cell_GSM501001 
##                        9                        9                        2 
##   Stromal_cell_GSM501002   Stromal_cell_GSM501003    ES_iPS_germ_GSM501004 
##                        2                        2                        9 
##    ES_iPS_germ_GSM501005    ES_iPS_germ_GSM501006    ES_iPS_germ_GSM501007 
##                        9                        9                        9 
##    ES_iPS_germ_GSM501008    ES_iPS_germ_GSM501009   Stromal_cell_GSM501890 
##                        9                        9                        2 
##   Stromal_cell_GSM501891   Stromal_cell_GSM501892   Stromal_cell_GSM501893 
##                        2                        2                        2 
##   Stromal_cell_GSM501894   Stromal_cell_GSM501895     Blood_cell_GSM514669 
##                        2                        2                        1 
##     Blood_cell_GSM514670     Blood_cell_GSM514671     Blood_cell_GSM514672 
##                        1                        1                        1 
##    ES_iPS_germ_GSM530601    ES_iPS_germ_GSM530602    ES_iPS_germ_GSM530603 
##                        9                        9                        9 
##    ES_iPS_germ_GSM530604    ES_iPS_germ_GSM530605    ES_iPS_germ_GSM530606 
##                        9                        9                        9 
##    ES_iPS_germ_GSM530607    ES_iPS_germ_GSM530611      Neuro_endo_GSM53382 
##                        9                        9                        8 
##      Neuro_endo_GSM53383      Neuro_endo_GSM53384      Neuro_endo_GSM53385 
##                        8                        8                        8 
##      Neuro_endo_GSM53386      Neuro_endo_GSM53387    ES_iPS_germ_GSM540714 
##                        8                        8                        9 
##    ES_iPS_germ_GSM540715    ES_iPS_germ_GSM540716     Blood_cell_GSM542578 
##                        9                        9                        4 
##     Blood_cell_GSM547998     Blood_cell_GSM547999     Blood_cell_GSM548000 
##                        4                        4                        4 
##     Blood_cell_GSM548001     Blood_cell_GSM549577     Blood_cell_GSM549578 
##                        4                        5                        5 
##     Blood_cell_GSM549579     Blood_cell_GSM549580     Blood_cell_GSM549581 
##                        5                        5                        5 
##     Blood_cell_GSM549582     Blood_cell_GSM549583     Blood_cell_GSM549584 
##                        5                        5                        5 
##       Endothel_GSM551183     Blood_cell_GSM556647     Blood_cell_GSM556663 
##                        7                        5                        1 
##     Blood_cell_GSM556665      Neuro_endo_GSM92231      Neuro_endo_GSM92232 
##                        1                        2                        2 
##      Neuro_endo_GSM92233      Neuro_endo_GSM92234 _A_Alexander cells_liver 
##                        2                        2                       10 
##             _A_C3A_liver      _A_Hep 3B2.17_liver          _A_Hep G2_liver 
##                       10                       10                       10 
##            _A_huH1_liver            _A_HuH6_liver            _A_HuH7_liver 
##                       10                       10                       10 
##            _A_JHH5_liver            _A_JHH7_liver       _A_PLC_PRF_5_liver 
##                       10                       10                       10 
##             _B_HLE_liver             _B_HLF_liver            _B_JHH2_liver 
##                        2                        2                        2 
##            _B_JHH4_liver             _B_Li7_liver          _B_SNU182_liver 
##                        2                        2                        2 
##          _B_SNU387_liver          _B_SNU423_liver          _B_SNU449_liver 
##                        2                        2                        2 
##          _B_SNU475_liver          _B_SNU761_liver          _B_SNU878_liver 
##                        2                        2                        2 
##          _B_SNU886_liver            _C_JHH1_liver            _C_JHH6_liver 
##                        2                        1                        2 
##         _C_NCIH684_liver          _C_SKHEP1_liver          _C_SNU398_liver 
##                        5                        2                        9
row_clst_df <- data.frame(1:length(row_clst$order),row_clst$order, row_clst$labels,row_clst$labels[row_clst$order],cutree(row_clst, k = 10)[row_clst$order])
row_clst_df
##                          X1.length.row_clst.order. row_clst.order
## ES_iPS_germ_GSM530604                            1            679
## ES_iPS_germ_GSM530606                            2            681
## ES_iPS_germ_GSM530601                            3            676
## ES_iPS_germ_GSM530603                            4            678
## ES_iPS_germ_GSM372156                            5            512
## ES_iPS_germ_GSM372154                            6            510
## ES_iPS_germ_GSM372155                            7            511
## ES_iPS_germ_GSM469409                            8            617
## ES_iPS_germ_GSM172866                            9            129
## ES_iPS_germ_GSM172865                           10            128
## ES_iPS_germ_GSM172870                           11            133
## ES_iPS_germ_GSM172868                           12            131
## ES_iPS_germ_GSM172867                           13            130
## ES_iPS_germ_GSM172869                           14            132
## ES_iPS_germ_GSM540716                           15            692
## ES_iPS_germ_GSM540714                           16            690
## ES_iPS_germ_GSM540715                           17            691
## ES_iPS_germ_GSM402806                           18            551
## ES_iPS_germ_GSM402717                           19            549
## ES_iPS_germ_GSM402752                           20            550
## ES_iPS_germ_GSM530611                           21            683
## _C_SNU398_liver                                 22            741
## ES_iPS_germ_GSM501008                           23            664
## ES_iPS_germ_GSM501007                           24            663
## ES_iPS_germ_GSM501009                           25            665
## ES_iPS_germ_GSM501004                           26            660
## ES_iPS_germ_GSM501006                           27            662
## ES_iPS_germ_GSM500996                           28            652
## ES_iPS_germ_GSM500997                           29            653
## ES_iPS_germ_GSM501000                           30            656
## ES_iPS_germ_GSM500998                           31            654
## ES_iPS_germ_GSM500999                           32            655
## ES_iPS_germ_GSM347922                           33            475
## ES_iPS_germ_GSM501005                           34            661
## ES_iPS_germ_GSM378811                           35            535
## ES_iPS_germ_GSM347917                           36            471
## ES_iPS_germ_GSM347916                           37            470
## ES_iPS_germ_GSM347918                           38            472
## ES_iPS_germ_GSM347924                           39            477
## ES_iPS_germ_GSM347923                           40            476
## ES_iPS_germ_GSM347925                           41            478
## ES_iPS_germ_GSM225042                           42            231
## ES_iPS_germ_GSM230294                           43            232
## ES_iPS_germ_GSM530602                           44            677
## ES_iPS_germ_GSM530605                           45            680
## ES_iPS_germ_GSM530607                           46            682
## ES_iPS_germ_GSM372157                           47            513
## ES_iPS_germ_GSM372159                           48            515
## ES_iPS_germ_GSM367062                           49            498
## ES_iPS_germ_GSM372158                           50            514
## ES_iPS_germ_GSM367243                           51            503
## ES_iPS_germ_GSM367244                           52            504
## ES_iPS_germ_GSM367245                           53            505
## ES_iPS_germ_GSM367258                           54            506
## ES_iPS_germ_GSM367061                           55            497
## ES_iPS_germ_GSM367241                           56            501
## ES_iPS_germ_GSM367242                           57            502
## ES_iPS_germ_GSM367219                           58            499
## ES_iPS_germ_GSM367240                           59            500
## Neuro_endo_GSM53385                             60            687
## Neuro_endo_GSM53386                             61            688
## Neuro_endo_GSM53382                             62            684
## Neuro_endo_GSM53384                             63            686
## Neuro_endo_GSM53383                             64            685
## Neuro_endo_GSM53387                             65            689
## ES_iPS_germ_GSM304262                           66            377
## ES_iPS_germ_GSM304260                           67            375
## ES_iPS_germ_GSM304261                           68            376
## ES_iPS_germ_GSM158468                           69            122
## ES_iPS_germ_GSM158470                           70            123
## Other_GSM173542                                 71            144
## Other_GSM173541                                 72            143
## Other_GSM173543                                 73            145
## Other_GSM173538                                 74            140
## Other_GSM173539                                 75            141
## Other_GSM173546                                 76            148
## Other_GSM173544                                 77            146
## Other_GSM173540                                 78            142
## Other_GSM173545                                 79            147
## Other_GSM173552                                 80            154
## Other_GSM173550                                 81            152
## Other_GSM173551                                 82            153
## Other_GSM173535                                 83            137
## Other_GSM173556                                 84            158
## Other_GSM173553                                 85            155
## Other_GSM173536                                 86            138
## Other_GSM173537                                 87            139
## Other_GSM173554                                 88            156
## Other_GSM173555                                 89            157
## Other_GSM173534                                 90            136
## Other_GSM173547                                 91            149
## Other_GSM173548                                 92            150
## Other_GSM173549                                 93            151
## Other_GSM173532                                 94            134
## Other_GSM173533                                 95            135
## Other_GSM119354                                 96             19
## Other_GSM119362                                 97             24
## Other_GSM119360                                 98             22
## Other_GSM119357                                 99             20
## Other_GSM119359                                100             21
## Other_GSM119361                                101             23
## Other_GSM119371                                102             27
## Other_GSM119366                                103             25
## Other_GSM119369                                104             26
## Other_GSM119372                                105             28
## Other_GSM299096                                106            348
## Other_GSM299095                                107            347
## Other_GSM299097                                108            349
## Other_GSM299098                                109            350
## Other_GSM299099                                110            351
## Other_GSM299100                                111            352
## Endothel_GSM410679                             112            561
## Endothel_GSM410680                             113            562
## Endothel_GSM410681                             114            563
## Endothel_GSM410678                             115            560
## Endothel_GSM410666                             116            552
## Endothel_GSM410669                             117            555
## Endothel_GSM410667                             118            553
## Endothel_GSM410668                             119            554
## Endothel_GSM410675                             120            559
## Endothel_GSM410684                             121            564
## Endothel_GSM410673                             122            557
## Endothel_GSM410672                             123            556
## Endothel_GSM410674                             124            558
## Endothel_GSM410685                             125            565
## Endothel_GSM410686                             126            566
## Endothel_GSM410687                             127            567
## Endothel_GSM143898                             128            111
## Endothel_GSM143900                             129            112
## Endothel_GSM143910                             130            114
## Endothel_GSM143914                             131            115
## Endothel_GSM143717                             132            102
## Endothel_GSM143907                             133            113
## Endothel_GSM305787                             134            393
## Endothel_GSM305784                             135            390
## Endothel_GSM305785                             136            391
## Endothel_GSM476784                             137            622
## Endothel_GSM476783                             138            621
## Endothel_GSM476786                             139            624
## Endothel_GSM476782                             140            620
## Endothel_GSM476785                             141            623
## Endothel_GSM492832                             142            647
## Endothel_GSM492833                             143            648
## Endothel_GSM141252                             144             99
## Endothel_GSM141253                             145            100
## Endothel_GSM141251                             146             98
## Endothel_GSM141255                             147            101
## Endothel_GSM330314                             148            421
## Endothel_GSM143726                             149            103
## Endothel_GSM335859                             150            428
## Endothel_GSM330313                             151            420
## Endothel_GSM335393                             152            424
## Endothel_GSM335851                             153            427
## Endothel_GSM335395                             154            425
## Endothel_GSM385350                             155            546
## Endothel_GSM385353                             156            547
## Endothel_GSM143727                             157            104
## Endothel_GSM385333                             158            544
## Endothel_GSM385338                             159            545
## Endothel_GSM346952                             160            467
## Endothel_GSM346951                             161            466
## Endothel_GSM551183                             162            706
## Endothel_GSM330315                             163            422
## Endothel_GSM335904                             164            429
## Endothel_GSM330316                             165            423
## Endothel_GSM335396                             166            426
## Endothel_GSM335906                             167            430
## Endothel_GSM336559                             168            431
## Endothel_GSM143729                             169            106
## Endothel_GSM143728                             170            105
## Endothel_GSM143731                             171            108
## Endothel_GSM143732                             172            109
## Endothel_GSM143733                             173            110
## Endothel_GSM143730                             174            107
## Endothel_GSM305786                             175            392
## Stromal_cell_GSM413842                         176            569
## Stromal_cell_GSM372142                         177            507
## Stromal_cell_GSM372144                         178            508
## Stromal_cell_GSM372146                         179            509
## Stromal_cell_GSM366942                         180            496
## Stromal_cell_GSM402707                         181            548
## Stromal_cell_GSM500995                         182            651
## Stromal_cell_GSM347919                         183            473
## Stromal_cell_GSM347920                         184            474
## Stromal_cell_GSM501001                         185            657
## Stromal_cell_GSM501002                         186            658
## Stromal_cell_GSM501003                         187            659
## Stromal_cell_GSM501890                         188            666
## Stromal_cell_GSM501895                         189            671
## Stromal_cell_GSM501891                         190            667
## Stromal_cell_GSM501894                         191            670
## Stromal_cell_GSM501892                         192            668
## Stromal_cell_GSM501893                         193            669
## Stromal_cell_GSM260309                         194            249
## Stromal_cell_GSM260311                         195            251
## Stromal_cell_GSM260312                         196            252
## Stromal_cell_GSM260310                         197            250
## Stromal_cell_GSM260313                         198            253
## Stromal_cell_GSM260305                         199            245
## Stromal_cell_GSM260306                         200            246
## Stromal_cell_GSM260308                         201            248
## Stromal_cell_GSM260321                         202            255
## Stromal_cell_GSM260307                         203            247
## Stromal_cell_GSM260314                         204            254
## Stromal_cell_GSM260322                         205            256
## Stromal_cell_GSM287219                         206            332
## Stromal_cell_GSM287218                         207            331
## Stromal_cell_GSM287222                         208            334
## Stromal_cell_GSM287217                         209            330
## Stromal_cell_GSM287216                         210            329
## Stromal_cell_GSM287220                         211            333
## Stromal_cell_GSM239260                         212            233
## Stromal_cell_GSM239379                         213            234
## Stromal_cell_GSM239457                         214            235
## Stromal_cell_GSM239606                         215            236
## Stromal_cell_GSM239612                         216            237
## Stromal_cell_GSM239613                         217            238
## Stromal_cell_GSM239668                         218            240
## Stromal_cell_GSM239616                         219            239
## Stromal_cell_GSM239669                         220            241
## Stromal_cell_GSM413847                         221            571
## Stromal_cell_GSM413846                         222            570
## Stromal_cell_GSM413848                         223            572
## Stromal_cell_GSM260669                         224            268
## Stromal_cell_GSM260672                         225            271
## Stromal_cell_GSM260671                         226            270
## Stromal_cell_GSM260670                         227            269
## Stromal_cell_GSM260673                         228            272
## Stromal_cell_GSM260682                         229            280
## Stromal_cell_GSM260685                         230            283
## Stromal_cell_GSM260674                         231            273
## Stromal_cell_GSM260684                         232            282
## Stromal_cell_GSM260666                         233            265
## Stromal_cell_GSM260665                         234            264
## Stromal_cell_GSM260663                         235            262
## Stromal_cell_GSM260668                         236            267
## Stromal_cell_GSM260664                         237            263
## Stromal_cell_GSM260675                         238            274
## Stromal_cell_GSM260681                         239            279
## Stromal_cell_GSM260667                         240            266
## Stromal_cell_GSM260678                         241            276
## Stromal_cell_GSM260676                         242            275
## Stromal_cell_GSM260679                         243            277
## Stromal_cell_GSM260686                         244            284
## Stromal_cell_GSM260680                         245            278
## Stromal_cell_GSM260683                         246            281
## Stromal_cell_GSM451153                         247            592
## Stromal_cell_GSM451156                         248            595
## Stromal_cell_GSM260661                         249            260
## Stromal_cell_GSM260662                         250            261
## Stromal_cell_GSM250019                         251            242
## Stromal_cell_GSM260657                         252            257
## Stromal_cell_GSM451154                         253            593
## Stromal_cell_GSM451157                         254            596
## Stromal_cell_GSM451158                         255            597
## Stromal_cell_GSM250020                         256            243
## Stromal_cell_GSM260658                         257            258
## Stromal_cell_GSM250021                         258            244
## Stromal_cell_GSM260659                         259            259
## Stromal_cell_GSM451155                         260            594
## Stromal_cell_GSM451160                         261            598
## Stromal_cell_GSM451161                         262            599
## _B_Li7_liver                                   263            728
## _B_SNU878_liver                                264            735
## Stromal_cell_GSM346959                         265            468
## Stromal_cell_GSM346960                         266            469
## Stromal_cell_GSM116106                         267             18
## Stromal_cell_GSM116103                         268             15
## Stromal_cell_GSM116101                         269             13
## Stromal_cell_GSM116102                         270             14
## Stromal_cell_GSM116104                         271             16
## Stromal_cell_GSM116105                         272             17
## Stromal_cell_GSM346941                         273            462
## Stromal_cell_GSM346942                         274            463
## Stromal_cell_GSM492834                         275            649
## Stromal_cell_GSM492835                         276            650
## Stromal_cell_GSM322374                         277            416
## Stromal_cell_GSM322375                         278            417
## Stromal_cell_GSM322376                         279            418
## Stromal_cell_GSM322377                         280            419
## Stromal_cell_GSM413840                         281            568
## Stromal_cell_GSM469126                         282            609
## Stromal_cell_GSM469130                         283            613
## Stromal_cell_GSM469127                         284            610
## Stromal_cell_GSM469128                         285            611
## Stromal_cell_GSM469129                         286            612
## Stromal_cell_GSM346944                         287            465
## Stromal_cell_GSM469125                         288            608
## Stromal_cell_GSM346943                         289            464
## Stromal_cell_GSM469132                         290            615
## Stromal_cell_GSM469131                         291            614
## Stromal_cell_GSM469136                         292            616
## Stromal_cell_GSM265498                         293            306
## Stromal_cell_GSM265494                         294            302
## Stromal_cell_GSM265496                         295            304
## Stromal_cell_GSM265495                         296            303
## Stromal_cell_GSM265497                         297            305
## Stromal_cell_GSM265499                         298            307
## Neuro_endo_GSM92232                            299            711
## Neuro_endo_GSM92234                            300            713
## Neuro_endo_GSM92231                            301            710
## Neuro_endo_GSM92233                            302            712
## Neuro_endo_GSM469411                           303            618
## Neuro_endo_GSM469412                           304            619
## _B_SNU761_liver                                305            734
## _C_SKHEP1_liver                                306            740
## _B_SNU182_liver                                307            729
## _B_SNU449_liver                                308            732
## _B_HLE_liver                                   309            724
## _B_HLF_liver                                   310            725
## _B_SNU475_liver                                311            733
## _B_SNU886_liver                                312            736
## _B_JHH4_liver                                  313            727
## _B_SNU387_liver                                314            730
## _B_SNU423_liver                                315            731
## _B_JHH2_liver                                  316            726
## _C_JHH6_liver                                  317            738
## Hepatocytes_GSM456350                          318            601
## Hepatocytes_GSM456349                          319            600
## Hepatocytes_GSM456351                          320            602
## _A_Alexander cells_liver                       321            714
## _A_PLC_PRF_5_liver                             322            723
## _A_HuH6_liver                                  323            719
## _A_huH1_liver                                  324            718
## _A_HuH7_liver                                  325            720
## _A_JHH5_liver                                  326            721
## _A_JHH7_liver                                  327            722
## _A_Hep 3B2.17_liver                            328            716
## _A_C3A_liver                                   329            715
## _A_Hep G2_liver                                330            717
## _C_JHH1_liver                                  331            737
## Blood_cell_GSM359754                           332            486
## Blood_cell_GSM359760                           333            490
## Blood_cell_GSM359758                           334            488
## Blood_cell_GSM359753                           335            485
## Blood_cell_GSM359759                           336            489
## Blood_cell_GSM359332                           337            484
## Blood_cell_GSM359755                           338            487
## Blood_cell_GSM300401                           339            371
## Blood_cell_GSM300399                           340            370
## Blood_cell_GSM300403                           341            373
## Blood_cell_GSM300404                           342            374
## Blood_cell_GSM300392                           343            365
## Blood_cell_GSM300394                           344            367
## Blood_cell_GSM300398                           345            369
## Blood_cell_GSM300393                           346            366
## Blood_cell_GSM300402                           347            372
## Blood_cell_GSM300390                           348            364
## Blood_cell_GSM300389                           349            363
## Blood_cell_GSM300395                           350            368
## Blood_cell_GSM514672                           351            675
## Blood_cell_GSM514670                           352            673
## Blood_cell_GSM514669                           353            672
## Blood_cell_GSM343806                           354            436
## Blood_cell_GSM343822                           355            452
## Blood_cell_GSM343824                           356            454
## Blood_cell_GSM514671                           357            674
## Blood_cell_GSM343817                           358            447
## Blood_cell_GSM343819                           359            449
## Blood_cell_GSM343815                           360            445
## Blood_cell_GSM343805                           361            435
## Blood_cell_GSM343831                           362            461
## Blood_cell_GSM343807                           363            437
## Blood_cell_GSM343813                           364            443
## Blood_cell_GSM343825                           365            455
## Blood_cell_GSM343811                           366            441
## Blood_cell_GSM343829                           367            459
## Blood_cell_GSM343808                           368            438
## Blood_cell_GSM343810                           369            440
## Blood_cell_GSM343812                           370            442
## Blood_cell_GSM419989                           371            575
## Blood_cell_GSM343828                           372            458
## Blood_cell_GSM343830                           373            460
## Blood_cell_GSM343816                           374            446
## Blood_cell_GSM343818                           375            448
## Blood_cell_GSM419988                           376            574
## Blood_cell_GSM343802                           377            432
## Blood_cell_GSM343804                           378            434
## Blood_cell_GSM419992                           379            578
## Blood_cell_GSM419987                           380            573
## Blood_cell_GSM419990                           381            576
## Blood_cell_GSM419991                           382            577
## Blood_cell_GSM343821                           383            451
## Blood_cell_GSM343809                           384            439
## Blood_cell_GSM343814                           385            444
## Blood_cell_GSM343826                           386            456
## Blood_cell_GSM343803                           387            433
## Blood_cell_GSM343827                           388            457
## Blood_cell_GSM343820                           389            450
## Blood_cell_GSM343823                           390            453
## Blood_cell_GSM132924                           391             79
## Blood_cell_GSM132926                           392             81
## Blood_cell_GSM132928                           393             83
## Blood_cell_GSM132927                           394             82
## Blood_cell_GSM132919                           395             75
## Blood_cell_GSM132923                           396             78
## Blood_cell_GSM132925                           397             80
## Blood_cell_GSM132921                           398             76
## Blood_cell_GSM132922                           399             77
## Blood_cell_GSM132929                           400             84
## Blood_cell_GSM132930                           401             85
## Blood_cell_GSM181930                           402            170
## Blood_cell_GSM181971                           403            175
## Blood_cell_GSM181973                           404            177
## Blood_cell_GSM181982                           405            183
## Blood_cell_GSM181997                           406            186
## Blood_cell_GSM181931                           407            171
## Blood_cell_GSM181933                           408            173
## Blood_cell_GSM181857                           409            169
## Blood_cell_GSM181978                           410            180
## Blood_cell_GSM140953                           411             92
## Blood_cell_GSM160534                           412            126
## Blood_cell_GSM140968                           413             93
## Blood_cell_GSM140969                           414             94
## Blood_cell_GSM286088                           415            325
## Blood_cell_GSM320546                           416            409
## Blood_cell_GSM320544                           417            407
## Blood_cell_GSM320548                           418            411
## Blood_cell_GSM320550                           419            413
## Blood_cell_GSM320552                           420            415
## Blood_cell_GSM320545                           421            408
## Blood_cell_GSM320551                           422            414
## Blood_cell_GSM320547                           423            410
## Blood_cell_GSM320549                           424            412
## Blood_cell_GSM140973                           425             97
## Blood_cell_GSM320543                           426            406
## Blood_cell_GSM183305                           427            200
## Blood_cell_GSM183393                           428            205
## Blood_cell_GSM183482                           429            213
## Blood_cell_GSM183467                           430            212
## Blood_cell_GSM183392                           431            204
## Blood_cell_GSM183466                           432            211
## Blood_cell_GSM183316                           433            203
## Blood_cell_GSM183463                           434            208
## Blood_cell_GSM183394                           435            206
## Blood_cell_GSM183462                           436            207
## Blood_cell_GSM183306                           437            201
## Blood_cell_GSM183217                           438            199
## Blood_cell_GSM183315                           439            202
## Blood_cell_GSM183464                           440            209
## Blood_cell_GSM183465                           441            210
## Blood_cell_GSM183487                           442            218
## Blood_cell_GSM183209                           443            198
## Blood_cell_GSM183165                           444            194
## Blood_cell_GSM183486                           445            217
## Blood_cell_GSM183196                           446            196
## Blood_cell_GSM183483                           447            214
## Blood_cell_GSM183485                           448            216
## Blood_cell_GSM183193                           449            195
## Blood_cell_GSM183201                           450            197
## Blood_cell_GSM183484                           451            215
## Blood_cell_GSM112670                           452             12
## Blood_cell_GSM112490                           453              1
## Blood_cell_GSM112668                           454             10
## Blood_cell_GSM112540                           455              3
## Blood_cell_GSM112491                           456              2
## Blood_cell_GSM112669                           457             11
## Blood_cell_GSM160530                           458            124
## Blood_cell_GSM112664                           459              6
## Blood_cell_GSM112666                           460              8
## Blood_cell_GSM112661                           461              5
## Blood_cell_GSM112665                           462              7
## Blood_cell_GSM305433                           463            380
## Blood_cell_GSM305435                           464            382
## Blood_cell_GSM305441                           465            388
## Blood_cell_GSM305442                           466            389
## Blood_cell_GSM305437                           467            384
## Blood_cell_GSM305439                           468            386
## Blood_cell_GSM182000                           469            189
## Blood_cell_GSM182002                           470            191
## Blood_cell_GSM556663                           471            708
## Blood_cell_GSM556665                           472            709
## Blood_cell_GSM286091                           473            328
## Blood_cell_GSM286089                           474            326
## Blood_cell_GSM286090                           475            327
## Blood_cell_GSM286017                           476            322
## Blood_cell_GSM286086                           477            323
## Blood_cell_GSM286087                           478            324
## Blood_cell_GSM112541                           479              4
## Blood_cell_GSM260694                           480            290
## Blood_cell_GSM260695                           481            291
## Blood_cell_GSM260691                           482            287
## Blood_cell_GSM260692                           483            288
## Blood_cell_GSM260689                           484            285
## Blood_cell_GSM260697                           485            293
## Blood_cell_GSM260699                           486            295
## Blood_cell_GSM260693                           487            289
## Blood_cell_GSM260690                           488            286
## Blood_cell_GSM260696                           489            292
## Blood_cell_GSM260701                           490            297
## Blood_cell_GSM260698                           491            294
## Blood_cell_GSM260700                           492            296
## Blood_cell_GSM181974                           493            178
## Blood_cell_GSM181976                           494            179
## Blood_cell_GSM181981                           495            182
## Blood_cell_GSM181984                           496            185
## Blood_cell_GSM181999                           497            188
## Blood_cell_GSM299559                           498            356
## Blood_cell_GSM299560                           499            357
## Blood_cell_GSM299565                           500            362
## Blood_cell_GSM160532                           501            125
## Blood_cell_GSM299564                           502            361
## Blood_cell_GSM140970                           503             95
## Blood_cell_GSM286015                           504            321
## Blood_cell_GSM112667                           505              9
## Blood_cell_GSM140971                           506             96
## Blood_cell_GSM181972                           507            176
## Blood_cell_GSM264757                           508            300
## Blood_cell_GSM264758                           509            301
## Blood_cell_GSM264755                           510            298
## Blood_cell_GSM264756                           511            299
## Blood_cell_GSM160536                           512            127
## Blood_cell_GSM181983                           513            184
## Blood_cell_GSM181998                           514            187
## Blood_cell_GSM181980                           515            181
## Blood_cell_GSM182001                           516            190
## Blood_cell_GSM549579                           517            700
## Blood_cell_GSM549577                           518            698
## Blood_cell_GSM549578                           519            699
## Blood_cell_GSM549581                           520            702
## Blood_cell_GSM549580                           521            701
## Blood_cell_GSM549583                           522            704
## Blood_cell_GSM549582                           523            703
## Blood_cell_GSM549584                           524            705
## Blood_cell_GSM361278                           525            493
## Blood_cell_GSM361266                           526            491
## Blood_cell_GSM361272                           527            492
## Blood_cell_GSM361283                           528            494
## Blood_cell_GSM361285                           529            495
## Blood_cell_GSM466518                           530            606
## Blood_cell_GSM466519                           531            607
## Blood_cell_GSM466515                           532            603
## Blood_cell_GSM466516                           533            604
## Blood_cell_GSM466517                           534            605
## _C_NCIH684_liver                               535            739
## Blood_cell_GSM289612                           536            335
## Blood_cell_GSM289618                           537            341
## Blood_cell_GSM289615                           538            338
## Blood_cell_GSM289617                           539            340
## Blood_cell_GSM289616                           540            339
## Blood_cell_GSM289613                           541            336
## Blood_cell_GSM289614                           542            337
## Blood_cell_GSM483483                           543            628
## Blood_cell_GSM483484                           544            629
## Blood_cell_GSM483485                           545            630
## Blood_cell_GSM483480                           546            625
## Blood_cell_GSM483481                           547            626
## Blood_cell_GSM483482                           548            627
## Blood_cell_GSM488980                           549            643
## Blood_cell_GSM488981                           550            644
## Blood_cell_GSM488970                           551            633
## Blood_cell_GSM488971                           552            634
## Blood_cell_GSM488968                           553            631
## Blood_cell_GSM488969                           554            632
## Blood_cell_GSM488982                           555            645
## Blood_cell_GSM488983                           556            646
## Blood_cell_GSM488974                           557            637
## Blood_cell_GSM488975                           558            638
## Blood_cell_GSM189447                           559            219
## Blood_cell_GSM189448                           560            220
## Blood_cell_GSM189452                           561            224
## Blood_cell_GSM189454                           562            226
## Blood_cell_GSM189451                           563            223
## Blood_cell_GSM189453                           564            225
## Blood_cell_GSM189449                           565            221
## Blood_cell_GSM189450                           566            222
## Blood_cell_GSM305432                           567            379
## Blood_cell_GSM305436                           568            383
## Blood_cell_GSM305430                           569            378
## Blood_cell_GSM305434                           570            381
## Blood_cell_GSM182003                           571            192
## Blood_cell_GSM182004                           572            193
## Blood_cell_GSM181932                           573            172
## Blood_cell_GSM181934                           574            174
## Blood_cell_GSM299557                           575            354
## Blood_cell_GSM299558                           576            355
## Blood_cell_GSM305438                           577            385
## Blood_cell_GSM299563                           578            360
## Blood_cell_GSM299562                           579            359
## Blood_cell_GSM305440                           580            387
## Blood_cell_GSM422113                           581            583
## Blood_cell_GSM422114                           582            584
## Blood_cell_GSM422116                           583            585
## Blood_cell_GSM422111                           584            581
## Blood_cell_GSM422112                           585            582
## Blood_cell_GSM422110                           586            580
## Blood_cell_GSM140244                           587             86
## Blood_cell_GSM422109                           588            579
## Blood_cell_GSM1209586                          589             61
## Blood_cell_GSM1209588                          590             63
## Blood_cell_GSM1209589                          591             64
## Blood_cell_GSM1209585                          592             60
## Blood_cell_GSM1209587                          593             62
## Blood_cell_GSM1209560                          594             35
## Blood_cell_GSM1209558                          595             33
## Blood_cell_GSM1209559                          596             34
## Blood_cell_GSM140245                           597             87
## Blood_cell_GSM140248                           598             90
## Blood_cell_GSM140249                           599             91
## Blood_cell_GSM178554                           600            164
## Blood_cell_GSM178555                           601            165
## Blood_cell_GSM140246                           602             88
## Blood_cell_GSM140247                           603             89
## Blood_cell_GSM178550                           604            160
## Blood_cell_GSM178551                           605            161
## Blood_cell_GSM178557                           606            167
## Blood_cell_GSM488978                           607            641
## Blood_cell_GSM178549                           608            159
## Blood_cell_GSM178552                           609            162
## Blood_cell_GSM178553                           610            163
## Blood_cell_GSM488979                           611            642
## Blood_cell_GSM178558                           612            168
## Blood_cell_GSM299561                           613            358
## Blood_cell_GSM178556                           614            166
## Blood_cell_GSM299556                           615            353
## Blood_cell_GSM432176                           616            587
## Blood_cell_GSM350084                           617            481
## Blood_cell_GSM350085                           618            482
## Blood_cell_GSM350086                           619            483
## Blood_cell_GSM432180                           620            591
## Blood_cell_GSM432178                           621            589
## Blood_cell_GSM432179                           622            590
## Blood_cell_GSM432175                           623            586
## Blood_cell_GSM432177                           624            588
## Blood_cell_GSM556647                           625            707
## Blood_cell_GSM488976                           626            639
## Blood_cell_GSM488977                           627            640
## Blood_cell_GSM1209591                          628             66
## Blood_cell_GSM1209595                          629             70
## Blood_cell_GSM1209594                          630             69
## Blood_cell_GSM1209592                          631             67
## Blood_cell_GSM1209593                          632             68
## Blood_cell_GSM1209598                          633             73
## Blood_cell_GSM1209597                          634             72
## Blood_cell_GSM1209596                          635             71
## Blood_cell_GSM1209599                          636             74
## Blood_cell_GSM279574                           637            310
## Blood_cell_GSM279580                           638            316
## Blood_cell_GSM279577                           639            313
## Blood_cell_GSM279578                           640            314
## Blood_cell_GSM279581                           641            317
## Blood_cell_GSM279582                           642            318
## Blood_cell_GSM279575                           643            311
## Blood_cell_GSM279576                           644            312
## Blood_cell_GSM279572                           645            308
## Blood_cell_GSM279573                           646            309
## Blood_cell_GSM279583                           647            319
## Blood_cell_GSM279579                           648            315
## Blood_cell_GSM279584                           649            320
## Blood_cell_GSM372813                           650            529
## Blood_cell_GSM372804                           651            520
## Blood_cell_GSM372803                           652            519
## Blood_cell_GSM372810                           653            526
## Blood_cell_GSM372816                           654            532
## Blood_cell_GSM372818                           655            534
## Blood_cell_GSM372800                           656            516
## Blood_cell_GSM372809                           657            525
## Blood_cell_GSM372811                           658            527
## Blood_cell_GSM372808                           659            524
## Blood_cell_GSM372817                           660            533
## Blood_cell_GSM372806                           661            522
## Blood_cell_GSM372807                           662            523
## Blood_cell_GSM372801                           663            517
## Blood_cell_GSM372802                           664            518
## Blood_cell_GSM372812                           665            528
## Blood_cell_GSM372805                           666            521
## Blood_cell_GSM372814                           667            530
## Blood_cell_GSM372815                           668            531
## Blood_cell_GSM1209577                          669             52
## Blood_cell_GSM1209580                          670             55
## Blood_cell_GSM1209578                          671             53
## Blood_cell_GSM1209579                          672             54
## Blood_cell_GSM1209582                          673             57
## Blood_cell_GSM1209561                          674             36
## Blood_cell_GSM1209576                          675             51
## Blood_cell_GSM1209563                          676             38
## Blood_cell_GSM1209573                          677             48
## Blood_cell_GSM1209562                          678             37
## Blood_cell_GSM1209583                          679             58
## Blood_cell_GSM1209575                          680             50
## Blood_cell_GSM1209581                          681             56
## Blood_cell_GSM1209574                          682             49
## Blood_cell_GSM1209584                          683             59
## Blood_cell_GSM153893                           684            116
## Blood_cell_GSM154073                           685            117
## Blood_cell_GSM154084                           686            121
## Blood_cell_GSM154077                           687            118
## Blood_cell_GSM154078                           688            119
## Blood_cell_GSM154081                           689            120
## Blood_cell_GSM547998                           690            694
## Blood_cell_GSM548000                           691            696
## Blood_cell_GSM547999                           692            695
## Blood_cell_GSM548001                           693            697
## Blood_cell_GSM542578                           694            693
## Blood_cell_GSM349848                           695            479
## Blood_cell_GSM349849                           696            480
## Blood_cell_GSM310429                           697            394
## Blood_cell_GSM198944                           698            229
## Blood_cell_GSM198945                           699            230
## Blood_cell_GSM198942                           700            227
## Blood_cell_GSM198943                           701            228
## Blood_cell_GSM381341                           702            538
## Blood_cell_GSM381343                           703            540
## Blood_cell_GSM381339                           704            536
## Blood_cell_GSM381345                           705            542
## Blood_cell_GSM381340                           706            537
## Blood_cell_GSM381346                           707            543
## Blood_cell_GSM381342                           708            539
## Blood_cell_GSM381344                           709            541
## Blood_cell_GSM310440                           710            405
## Blood_cell_GSM488972                           711            635
## Blood_cell_GSM488973                           712            636
## Blood_cell_GSM310431                           713            396
## Blood_cell_GSM310437                           714            402
## Blood_cell_GSM310439                           715            404
## Blood_cell_GSM310432                           716            397
## Blood_cell_GSM310436                           717            401
## Blood_cell_GSM310433                           718            398
## Blood_cell_GSM310434                           719            399
## Blood_cell_GSM310435                           720            400
## Blood_cell_GSM310430                           721            395
## Blood_cell_GSM310438                           722            403
## Blood_cell_GSM290420                           723            344
## Blood_cell_GSM290414                           724            342
## Blood_cell_GSM290415                           725            343
## Blood_cell_GSM290421                           726            345
## Blood_cell_GSM290423                           727            346
## Blood_cell_GSM1209554                          728             29
## Blood_cell_GSM1209569                          729             44
## Blood_cell_GSM1209556                          730             31
## Blood_cell_GSM1209572                          731             47
## Blood_cell_GSM1209555                          732             30
## Blood_cell_GSM1209557                          733             32
## Blood_cell_GSM1209564                          734             39
## Blood_cell_GSM1209568                          735             43
## Blood_cell_GSM1209566                          736             41
## Blood_cell_GSM1209570                          737             45
## Blood_cell_GSM1209567                          738             42
## Blood_cell_GSM1209590                          739             65
## Blood_cell_GSM1209565                          740             40
## Blood_cell_GSM1209571                          741             46
##                                   row_clst.labels
## ES_iPS_germ_GSM530604        Blood_cell_GSM112490
## ES_iPS_germ_GSM530606        Blood_cell_GSM112491
## ES_iPS_germ_GSM530601        Blood_cell_GSM112540
## ES_iPS_germ_GSM530603        Blood_cell_GSM112541
## ES_iPS_germ_GSM372156        Blood_cell_GSM112661
## ES_iPS_germ_GSM372154        Blood_cell_GSM112664
## ES_iPS_germ_GSM372155        Blood_cell_GSM112665
## ES_iPS_germ_GSM469409        Blood_cell_GSM112666
## ES_iPS_germ_GSM172866        Blood_cell_GSM112667
## ES_iPS_germ_GSM172865        Blood_cell_GSM112668
## ES_iPS_germ_GSM172870        Blood_cell_GSM112669
## ES_iPS_germ_GSM172868        Blood_cell_GSM112670
## ES_iPS_germ_GSM172867      Stromal_cell_GSM116101
## ES_iPS_germ_GSM172869      Stromal_cell_GSM116102
## ES_iPS_germ_GSM540716      Stromal_cell_GSM116103
## ES_iPS_germ_GSM540714      Stromal_cell_GSM116104
## ES_iPS_germ_GSM540715      Stromal_cell_GSM116105
## ES_iPS_germ_GSM402806      Stromal_cell_GSM116106
## ES_iPS_germ_GSM402717             Other_GSM119354
## ES_iPS_germ_GSM402752             Other_GSM119357
## ES_iPS_germ_GSM530611             Other_GSM119359
## _C_SNU398_liver                   Other_GSM119360
## ES_iPS_germ_GSM501008             Other_GSM119361
## ES_iPS_germ_GSM501007             Other_GSM119362
## ES_iPS_germ_GSM501009             Other_GSM119366
## ES_iPS_germ_GSM501004             Other_GSM119369
## ES_iPS_germ_GSM501006             Other_GSM119371
## ES_iPS_germ_GSM500996             Other_GSM119372
## ES_iPS_germ_GSM500997       Blood_cell_GSM1209554
## ES_iPS_germ_GSM501000       Blood_cell_GSM1209555
## ES_iPS_germ_GSM500998       Blood_cell_GSM1209556
## ES_iPS_germ_GSM500999       Blood_cell_GSM1209557
## ES_iPS_germ_GSM347922       Blood_cell_GSM1209558
## ES_iPS_germ_GSM501005       Blood_cell_GSM1209559
## ES_iPS_germ_GSM378811       Blood_cell_GSM1209560
## ES_iPS_germ_GSM347917       Blood_cell_GSM1209561
## ES_iPS_germ_GSM347916       Blood_cell_GSM1209562
## ES_iPS_germ_GSM347918       Blood_cell_GSM1209563
## ES_iPS_germ_GSM347924       Blood_cell_GSM1209564
## ES_iPS_germ_GSM347923       Blood_cell_GSM1209565
## ES_iPS_germ_GSM347925       Blood_cell_GSM1209566
## ES_iPS_germ_GSM225042       Blood_cell_GSM1209567
## ES_iPS_germ_GSM230294       Blood_cell_GSM1209568
## ES_iPS_germ_GSM530602       Blood_cell_GSM1209569
## ES_iPS_germ_GSM530605       Blood_cell_GSM1209570
## ES_iPS_germ_GSM530607       Blood_cell_GSM1209571
## ES_iPS_germ_GSM372157       Blood_cell_GSM1209572
## ES_iPS_germ_GSM372159       Blood_cell_GSM1209573
## ES_iPS_germ_GSM367062       Blood_cell_GSM1209574
## ES_iPS_germ_GSM372158       Blood_cell_GSM1209575
## ES_iPS_germ_GSM367243       Blood_cell_GSM1209576
## ES_iPS_germ_GSM367244       Blood_cell_GSM1209577
## ES_iPS_germ_GSM367245       Blood_cell_GSM1209578
## ES_iPS_germ_GSM367258       Blood_cell_GSM1209579
## ES_iPS_germ_GSM367061       Blood_cell_GSM1209580
## ES_iPS_germ_GSM367241       Blood_cell_GSM1209581
## ES_iPS_germ_GSM367242       Blood_cell_GSM1209582
## ES_iPS_germ_GSM367219       Blood_cell_GSM1209583
## ES_iPS_germ_GSM367240       Blood_cell_GSM1209584
## Neuro_endo_GSM53385         Blood_cell_GSM1209585
## Neuro_endo_GSM53386         Blood_cell_GSM1209586
## Neuro_endo_GSM53382         Blood_cell_GSM1209587
## Neuro_endo_GSM53384         Blood_cell_GSM1209588
## Neuro_endo_GSM53383         Blood_cell_GSM1209589
## Neuro_endo_GSM53387         Blood_cell_GSM1209590
## ES_iPS_germ_GSM304262       Blood_cell_GSM1209591
## ES_iPS_germ_GSM304260       Blood_cell_GSM1209592
## ES_iPS_germ_GSM304261       Blood_cell_GSM1209593
## ES_iPS_germ_GSM158468       Blood_cell_GSM1209594
## ES_iPS_germ_GSM158470       Blood_cell_GSM1209595
## Other_GSM173542             Blood_cell_GSM1209596
## Other_GSM173541             Blood_cell_GSM1209597
## Other_GSM173543             Blood_cell_GSM1209598
## Other_GSM173538             Blood_cell_GSM1209599
## Other_GSM173539              Blood_cell_GSM132919
## Other_GSM173546              Blood_cell_GSM132921
## Other_GSM173544              Blood_cell_GSM132922
## Other_GSM173540              Blood_cell_GSM132923
## Other_GSM173545              Blood_cell_GSM132924
## Other_GSM173552              Blood_cell_GSM132925
## Other_GSM173550              Blood_cell_GSM132926
## Other_GSM173551              Blood_cell_GSM132927
## Other_GSM173535              Blood_cell_GSM132928
## Other_GSM173556              Blood_cell_GSM132929
## Other_GSM173553              Blood_cell_GSM132930
## Other_GSM173536              Blood_cell_GSM140244
## Other_GSM173537              Blood_cell_GSM140245
## Other_GSM173554              Blood_cell_GSM140246
## Other_GSM173555              Blood_cell_GSM140247
## Other_GSM173534              Blood_cell_GSM140248
## Other_GSM173547              Blood_cell_GSM140249
## Other_GSM173548              Blood_cell_GSM140953
## Other_GSM173549              Blood_cell_GSM140968
## Other_GSM173532              Blood_cell_GSM140969
## Other_GSM173533              Blood_cell_GSM140970
## Other_GSM119354              Blood_cell_GSM140971
## Other_GSM119362              Blood_cell_GSM140973
## Other_GSM119360                Endothel_GSM141251
## Other_GSM119357                Endothel_GSM141252
## Other_GSM119359                Endothel_GSM141253
## Other_GSM119361                Endothel_GSM141255
## Other_GSM119371                Endothel_GSM143717
## Other_GSM119366                Endothel_GSM143726
## Other_GSM119369                Endothel_GSM143727
## Other_GSM119372                Endothel_GSM143728
## Other_GSM299096                Endothel_GSM143729
## Other_GSM299095                Endothel_GSM143730
## Other_GSM299097                Endothel_GSM143731
## Other_GSM299098                Endothel_GSM143732
## Other_GSM299099                Endothel_GSM143733
## Other_GSM299100                Endothel_GSM143898
## Endothel_GSM410679             Endothel_GSM143900
## Endothel_GSM410680             Endothel_GSM143907
## Endothel_GSM410681             Endothel_GSM143910
## Endothel_GSM410678             Endothel_GSM143914
## Endothel_GSM410666           Blood_cell_GSM153893
## Endothel_GSM410669           Blood_cell_GSM154073
## Endothel_GSM410667           Blood_cell_GSM154077
## Endothel_GSM410668           Blood_cell_GSM154078
## Endothel_GSM410675           Blood_cell_GSM154081
## Endothel_GSM410684           Blood_cell_GSM154084
## Endothel_GSM410673          ES_iPS_germ_GSM158468
## Endothel_GSM410672          ES_iPS_germ_GSM158470
## Endothel_GSM410674           Blood_cell_GSM160530
## Endothel_GSM410685           Blood_cell_GSM160532
## Endothel_GSM410686           Blood_cell_GSM160534
## Endothel_GSM410687           Blood_cell_GSM160536
## Endothel_GSM143898          ES_iPS_germ_GSM172865
## Endothel_GSM143900          ES_iPS_germ_GSM172866
## Endothel_GSM143910          ES_iPS_germ_GSM172867
## Endothel_GSM143914          ES_iPS_germ_GSM172868
## Endothel_GSM143717          ES_iPS_germ_GSM172869
## Endothel_GSM143907          ES_iPS_germ_GSM172870
## Endothel_GSM305787                Other_GSM173532
## Endothel_GSM305784                Other_GSM173533
## Endothel_GSM305785                Other_GSM173534
## Endothel_GSM476784                Other_GSM173535
## Endothel_GSM476783                Other_GSM173536
## Endothel_GSM476786                Other_GSM173537
## Endothel_GSM476782                Other_GSM173538
## Endothel_GSM476785                Other_GSM173539
## Endothel_GSM492832                Other_GSM173540
## Endothel_GSM492833                Other_GSM173541
## Endothel_GSM141252                Other_GSM173542
## Endothel_GSM141253                Other_GSM173543
## Endothel_GSM141251                Other_GSM173544
## Endothel_GSM141255                Other_GSM173545
## Endothel_GSM330314                Other_GSM173546
## Endothel_GSM143726                Other_GSM173547
## Endothel_GSM335859                Other_GSM173548
## Endothel_GSM330313                Other_GSM173549
## Endothel_GSM335393                Other_GSM173550
## Endothel_GSM335851                Other_GSM173551
## Endothel_GSM335395                Other_GSM173552
## Endothel_GSM385350                Other_GSM173553
## Endothel_GSM385353                Other_GSM173554
## Endothel_GSM143727                Other_GSM173555
## Endothel_GSM385333                Other_GSM173556
## Endothel_GSM385338           Blood_cell_GSM178549
## Endothel_GSM346952           Blood_cell_GSM178550
## Endothel_GSM346951           Blood_cell_GSM178551
## Endothel_GSM551183           Blood_cell_GSM178552
## Endothel_GSM330315           Blood_cell_GSM178553
## Endothel_GSM335904           Blood_cell_GSM178554
## Endothel_GSM330316           Blood_cell_GSM178555
## Endothel_GSM335396           Blood_cell_GSM178556
## Endothel_GSM335906           Blood_cell_GSM178557
## Endothel_GSM336559           Blood_cell_GSM178558
## Endothel_GSM143729           Blood_cell_GSM181857
## Endothel_GSM143728           Blood_cell_GSM181930
## Endothel_GSM143731           Blood_cell_GSM181931
## Endothel_GSM143732           Blood_cell_GSM181932
## Endothel_GSM143733           Blood_cell_GSM181933
## Endothel_GSM143730           Blood_cell_GSM181934
## Endothel_GSM305786           Blood_cell_GSM181971
## Stromal_cell_GSM413842       Blood_cell_GSM181972
## Stromal_cell_GSM372142       Blood_cell_GSM181973
## Stromal_cell_GSM372144       Blood_cell_GSM181974
## Stromal_cell_GSM372146       Blood_cell_GSM181976
## Stromal_cell_GSM366942       Blood_cell_GSM181978
## Stromal_cell_GSM402707       Blood_cell_GSM181980
## Stromal_cell_GSM500995       Blood_cell_GSM181981
## Stromal_cell_GSM347919       Blood_cell_GSM181982
## Stromal_cell_GSM347920       Blood_cell_GSM181983
## Stromal_cell_GSM501001       Blood_cell_GSM181984
## Stromal_cell_GSM501002       Blood_cell_GSM181997
## Stromal_cell_GSM501003       Blood_cell_GSM181998
## Stromal_cell_GSM501890       Blood_cell_GSM181999
## Stromal_cell_GSM501895       Blood_cell_GSM182000
## Stromal_cell_GSM501891       Blood_cell_GSM182001
## Stromal_cell_GSM501894       Blood_cell_GSM182002
## Stromal_cell_GSM501892       Blood_cell_GSM182003
## Stromal_cell_GSM501893       Blood_cell_GSM182004
## Stromal_cell_GSM260309       Blood_cell_GSM183165
## Stromal_cell_GSM260311       Blood_cell_GSM183193
## Stromal_cell_GSM260312       Blood_cell_GSM183196
## Stromal_cell_GSM260310       Blood_cell_GSM183201
## Stromal_cell_GSM260313       Blood_cell_GSM183209
## Stromal_cell_GSM260305       Blood_cell_GSM183217
## Stromal_cell_GSM260306       Blood_cell_GSM183305
## Stromal_cell_GSM260308       Blood_cell_GSM183306
## Stromal_cell_GSM260321       Blood_cell_GSM183315
## Stromal_cell_GSM260307       Blood_cell_GSM183316
## Stromal_cell_GSM260314       Blood_cell_GSM183392
## Stromal_cell_GSM260322       Blood_cell_GSM183393
## Stromal_cell_GSM287219       Blood_cell_GSM183394
## Stromal_cell_GSM287218       Blood_cell_GSM183462
## Stromal_cell_GSM287222       Blood_cell_GSM183463
## Stromal_cell_GSM287217       Blood_cell_GSM183464
## Stromal_cell_GSM287216       Blood_cell_GSM183465
## Stromal_cell_GSM287220       Blood_cell_GSM183466
## Stromal_cell_GSM239260       Blood_cell_GSM183467
## Stromal_cell_GSM239379       Blood_cell_GSM183482
## Stromal_cell_GSM239457       Blood_cell_GSM183483
## Stromal_cell_GSM239606       Blood_cell_GSM183484
## Stromal_cell_GSM239612       Blood_cell_GSM183485
## Stromal_cell_GSM239613       Blood_cell_GSM183486
## Stromal_cell_GSM239668       Blood_cell_GSM183487
## Stromal_cell_GSM239616       Blood_cell_GSM189447
## Stromal_cell_GSM239669       Blood_cell_GSM189448
## Stromal_cell_GSM413847       Blood_cell_GSM189449
## Stromal_cell_GSM413846       Blood_cell_GSM189450
## Stromal_cell_GSM413848       Blood_cell_GSM189451
## Stromal_cell_GSM260669       Blood_cell_GSM189452
## Stromal_cell_GSM260672       Blood_cell_GSM189453
## Stromal_cell_GSM260671       Blood_cell_GSM189454
## Stromal_cell_GSM260670       Blood_cell_GSM198942
## Stromal_cell_GSM260673       Blood_cell_GSM198943
## Stromal_cell_GSM260682       Blood_cell_GSM198944
## Stromal_cell_GSM260685       Blood_cell_GSM198945
## Stromal_cell_GSM260674      ES_iPS_germ_GSM225042
## Stromal_cell_GSM260684      ES_iPS_germ_GSM230294
## Stromal_cell_GSM260666     Stromal_cell_GSM239260
## Stromal_cell_GSM260665     Stromal_cell_GSM239379
## Stromal_cell_GSM260663     Stromal_cell_GSM239457
## Stromal_cell_GSM260668     Stromal_cell_GSM239606
## Stromal_cell_GSM260664     Stromal_cell_GSM239612
## Stromal_cell_GSM260675     Stromal_cell_GSM239613
## Stromal_cell_GSM260681     Stromal_cell_GSM239616
## Stromal_cell_GSM260667     Stromal_cell_GSM239668
## Stromal_cell_GSM260678     Stromal_cell_GSM239669
## Stromal_cell_GSM260676     Stromal_cell_GSM250019
## Stromal_cell_GSM260679     Stromal_cell_GSM250020
## Stromal_cell_GSM260686     Stromal_cell_GSM250021
## Stromal_cell_GSM260680     Stromal_cell_GSM260305
## Stromal_cell_GSM260683     Stromal_cell_GSM260306
## Stromal_cell_GSM451153     Stromal_cell_GSM260307
## Stromal_cell_GSM451156     Stromal_cell_GSM260308
## Stromal_cell_GSM260661     Stromal_cell_GSM260309
## Stromal_cell_GSM260662     Stromal_cell_GSM260310
## Stromal_cell_GSM250019     Stromal_cell_GSM260311
## Stromal_cell_GSM260657     Stromal_cell_GSM260312
## Stromal_cell_GSM451154     Stromal_cell_GSM260313
## Stromal_cell_GSM451157     Stromal_cell_GSM260314
## Stromal_cell_GSM451158     Stromal_cell_GSM260321
## Stromal_cell_GSM250020     Stromal_cell_GSM260322
## Stromal_cell_GSM260658     Stromal_cell_GSM260657
## Stromal_cell_GSM250021     Stromal_cell_GSM260658
## Stromal_cell_GSM260659     Stromal_cell_GSM260659
## Stromal_cell_GSM451155     Stromal_cell_GSM260661
## Stromal_cell_GSM451160     Stromal_cell_GSM260662
## Stromal_cell_GSM451161     Stromal_cell_GSM260663
## _B_Li7_liver               Stromal_cell_GSM260664
## _B_SNU878_liver            Stromal_cell_GSM260665
## Stromal_cell_GSM346959     Stromal_cell_GSM260666
## Stromal_cell_GSM346960     Stromal_cell_GSM260667
## Stromal_cell_GSM116106     Stromal_cell_GSM260668
## Stromal_cell_GSM116103     Stromal_cell_GSM260669
## Stromal_cell_GSM116101     Stromal_cell_GSM260670
## Stromal_cell_GSM116102     Stromal_cell_GSM260671
## Stromal_cell_GSM116104     Stromal_cell_GSM260672
## Stromal_cell_GSM116105     Stromal_cell_GSM260673
## Stromal_cell_GSM346941     Stromal_cell_GSM260674
## Stromal_cell_GSM346942     Stromal_cell_GSM260675
## Stromal_cell_GSM492834     Stromal_cell_GSM260676
## Stromal_cell_GSM492835     Stromal_cell_GSM260678
## Stromal_cell_GSM322374     Stromal_cell_GSM260679
## Stromal_cell_GSM322375     Stromal_cell_GSM260680
## Stromal_cell_GSM322376     Stromal_cell_GSM260681
## Stromal_cell_GSM322377     Stromal_cell_GSM260682
## Stromal_cell_GSM413840     Stromal_cell_GSM260683
## Stromal_cell_GSM469126     Stromal_cell_GSM260684
## Stromal_cell_GSM469130     Stromal_cell_GSM260685
## Stromal_cell_GSM469127     Stromal_cell_GSM260686
## Stromal_cell_GSM469128       Blood_cell_GSM260689
## Stromal_cell_GSM469129       Blood_cell_GSM260690
## Stromal_cell_GSM346944       Blood_cell_GSM260691
## Stromal_cell_GSM469125       Blood_cell_GSM260692
## Stromal_cell_GSM346943       Blood_cell_GSM260693
## Stromal_cell_GSM469132       Blood_cell_GSM260694
## Stromal_cell_GSM469131       Blood_cell_GSM260695
## Stromal_cell_GSM469136       Blood_cell_GSM260696
## Stromal_cell_GSM265498       Blood_cell_GSM260697
## Stromal_cell_GSM265494       Blood_cell_GSM260698
## Stromal_cell_GSM265496       Blood_cell_GSM260699
## Stromal_cell_GSM265495       Blood_cell_GSM260700
## Stromal_cell_GSM265497       Blood_cell_GSM260701
## Stromal_cell_GSM265499       Blood_cell_GSM264755
## Neuro_endo_GSM92232          Blood_cell_GSM264756
## Neuro_endo_GSM92234          Blood_cell_GSM264757
## Neuro_endo_GSM92231          Blood_cell_GSM264758
## Neuro_endo_GSM92233        Stromal_cell_GSM265494
## Neuro_endo_GSM469411       Stromal_cell_GSM265495
## Neuro_endo_GSM469412       Stromal_cell_GSM265496
## _B_SNU761_liver            Stromal_cell_GSM265497
## _C_SKHEP1_liver            Stromal_cell_GSM265498
## _B_SNU182_liver            Stromal_cell_GSM265499
## _B_SNU449_liver              Blood_cell_GSM279572
## _B_HLE_liver                 Blood_cell_GSM279573
## _B_HLF_liver                 Blood_cell_GSM279574
## _B_SNU475_liver              Blood_cell_GSM279575
## _B_SNU886_liver              Blood_cell_GSM279576
## _B_JHH4_liver                Blood_cell_GSM279577
## _B_SNU387_liver              Blood_cell_GSM279578
## _B_SNU423_liver              Blood_cell_GSM279579
## _B_JHH2_liver                Blood_cell_GSM279580
## _C_JHH6_liver                Blood_cell_GSM279581
## Hepatocytes_GSM456350        Blood_cell_GSM279582
## Hepatocytes_GSM456349        Blood_cell_GSM279583
## Hepatocytes_GSM456351        Blood_cell_GSM279584
## _A_Alexander cells_liver     Blood_cell_GSM286015
## _A_PLC_PRF_5_liver           Blood_cell_GSM286017
## _A_HuH6_liver                Blood_cell_GSM286086
## _A_huH1_liver                Blood_cell_GSM286087
## _A_HuH7_liver                Blood_cell_GSM286088
## _A_JHH5_liver                Blood_cell_GSM286089
## _A_JHH7_liver                Blood_cell_GSM286090
## _A_Hep 3B2.17_liver          Blood_cell_GSM286091
## _A_C3A_liver               Stromal_cell_GSM287216
## _A_Hep G2_liver            Stromal_cell_GSM287217
## _C_JHH1_liver              Stromal_cell_GSM287218
## Blood_cell_GSM359754       Stromal_cell_GSM287219
## Blood_cell_GSM359760       Stromal_cell_GSM287220
## Blood_cell_GSM359758       Stromal_cell_GSM287222
## Blood_cell_GSM359753         Blood_cell_GSM289612
## Blood_cell_GSM359759         Blood_cell_GSM289613
## Blood_cell_GSM359332         Blood_cell_GSM289614
## Blood_cell_GSM359755         Blood_cell_GSM289615
## Blood_cell_GSM300401         Blood_cell_GSM289616
## Blood_cell_GSM300399         Blood_cell_GSM289617
## Blood_cell_GSM300403         Blood_cell_GSM289618
## Blood_cell_GSM300404         Blood_cell_GSM290414
## Blood_cell_GSM300392         Blood_cell_GSM290415
## Blood_cell_GSM300394         Blood_cell_GSM290420
## Blood_cell_GSM300398         Blood_cell_GSM290421
## Blood_cell_GSM300393         Blood_cell_GSM290423
## Blood_cell_GSM300402              Other_GSM299095
## Blood_cell_GSM300390              Other_GSM299096
## Blood_cell_GSM300389              Other_GSM299097
## Blood_cell_GSM300395              Other_GSM299098
## Blood_cell_GSM514672              Other_GSM299099
## Blood_cell_GSM514670              Other_GSM299100
## Blood_cell_GSM514669         Blood_cell_GSM299556
## Blood_cell_GSM343806         Blood_cell_GSM299557
## Blood_cell_GSM343822         Blood_cell_GSM299558
## Blood_cell_GSM343824         Blood_cell_GSM299559
## Blood_cell_GSM514671         Blood_cell_GSM299560
## Blood_cell_GSM343817         Blood_cell_GSM299561
## Blood_cell_GSM343819         Blood_cell_GSM299562
## Blood_cell_GSM343815         Blood_cell_GSM299563
## Blood_cell_GSM343805         Blood_cell_GSM299564
## Blood_cell_GSM343831         Blood_cell_GSM299565
## Blood_cell_GSM343807         Blood_cell_GSM300389
## Blood_cell_GSM343813         Blood_cell_GSM300390
## Blood_cell_GSM343825         Blood_cell_GSM300392
## Blood_cell_GSM343811         Blood_cell_GSM300393
## Blood_cell_GSM343829         Blood_cell_GSM300394
## Blood_cell_GSM343808         Blood_cell_GSM300395
## Blood_cell_GSM343810         Blood_cell_GSM300398
## Blood_cell_GSM343812         Blood_cell_GSM300399
## Blood_cell_GSM419989         Blood_cell_GSM300401
## Blood_cell_GSM343828         Blood_cell_GSM300402
## Blood_cell_GSM343830         Blood_cell_GSM300403
## Blood_cell_GSM343816         Blood_cell_GSM300404
## Blood_cell_GSM343818        ES_iPS_germ_GSM304260
## Blood_cell_GSM419988        ES_iPS_germ_GSM304261
## Blood_cell_GSM343802        ES_iPS_germ_GSM304262
## Blood_cell_GSM343804         Blood_cell_GSM305430
## Blood_cell_GSM419992         Blood_cell_GSM305432
## Blood_cell_GSM419987         Blood_cell_GSM305433
## Blood_cell_GSM419990         Blood_cell_GSM305434
## Blood_cell_GSM419991         Blood_cell_GSM305435
## Blood_cell_GSM343821         Blood_cell_GSM305436
## Blood_cell_GSM343809         Blood_cell_GSM305437
## Blood_cell_GSM343814         Blood_cell_GSM305438
## Blood_cell_GSM343826         Blood_cell_GSM305439
## Blood_cell_GSM343803         Blood_cell_GSM305440
## Blood_cell_GSM343827         Blood_cell_GSM305441
## Blood_cell_GSM343820         Blood_cell_GSM305442
## Blood_cell_GSM343823           Endothel_GSM305784
## Blood_cell_GSM132924           Endothel_GSM305785
## Blood_cell_GSM132926           Endothel_GSM305786
## Blood_cell_GSM132928           Endothel_GSM305787
## Blood_cell_GSM132927         Blood_cell_GSM310429
## Blood_cell_GSM132919         Blood_cell_GSM310430
## Blood_cell_GSM132923         Blood_cell_GSM310431
## Blood_cell_GSM132925         Blood_cell_GSM310432
## Blood_cell_GSM132921         Blood_cell_GSM310433
## Blood_cell_GSM132922         Blood_cell_GSM310434
## Blood_cell_GSM132929         Blood_cell_GSM310435
## Blood_cell_GSM132930         Blood_cell_GSM310436
## Blood_cell_GSM181930         Blood_cell_GSM310437
## Blood_cell_GSM181971         Blood_cell_GSM310438
## Blood_cell_GSM181973         Blood_cell_GSM310439
## Blood_cell_GSM181982         Blood_cell_GSM310440
## Blood_cell_GSM181997         Blood_cell_GSM320543
## Blood_cell_GSM181931         Blood_cell_GSM320544
## Blood_cell_GSM181933         Blood_cell_GSM320545
## Blood_cell_GSM181857         Blood_cell_GSM320546
## Blood_cell_GSM181978         Blood_cell_GSM320547
## Blood_cell_GSM140953         Blood_cell_GSM320548
## Blood_cell_GSM160534         Blood_cell_GSM320549
## Blood_cell_GSM140968         Blood_cell_GSM320550
## Blood_cell_GSM140969         Blood_cell_GSM320551
## Blood_cell_GSM286088         Blood_cell_GSM320552
## Blood_cell_GSM320546       Stromal_cell_GSM322374
## Blood_cell_GSM320544       Stromal_cell_GSM322375
## Blood_cell_GSM320548       Stromal_cell_GSM322376
## Blood_cell_GSM320550       Stromal_cell_GSM322377
## Blood_cell_GSM320552           Endothel_GSM330313
## Blood_cell_GSM320545           Endothel_GSM330314
## Blood_cell_GSM320551           Endothel_GSM330315
## Blood_cell_GSM320547           Endothel_GSM330316
## Blood_cell_GSM320549           Endothel_GSM335393
## Blood_cell_GSM140973           Endothel_GSM335395
## Blood_cell_GSM320543           Endothel_GSM335396
## Blood_cell_GSM183305           Endothel_GSM335851
## Blood_cell_GSM183393           Endothel_GSM335859
## Blood_cell_GSM183482           Endothel_GSM335904
## Blood_cell_GSM183467           Endothel_GSM335906
## Blood_cell_GSM183392           Endothel_GSM336559
## Blood_cell_GSM183466         Blood_cell_GSM343802
## Blood_cell_GSM183316         Blood_cell_GSM343803
## Blood_cell_GSM183463         Blood_cell_GSM343804
## Blood_cell_GSM183394         Blood_cell_GSM343805
## Blood_cell_GSM183462         Blood_cell_GSM343806
## Blood_cell_GSM183306         Blood_cell_GSM343807
## Blood_cell_GSM183217         Blood_cell_GSM343808
## Blood_cell_GSM183315         Blood_cell_GSM343809
## Blood_cell_GSM183464         Blood_cell_GSM343810
## Blood_cell_GSM183465         Blood_cell_GSM343811
## Blood_cell_GSM183487         Blood_cell_GSM343812
## Blood_cell_GSM183209         Blood_cell_GSM343813
## Blood_cell_GSM183165         Blood_cell_GSM343814
## Blood_cell_GSM183486         Blood_cell_GSM343815
## Blood_cell_GSM183196         Blood_cell_GSM343816
## Blood_cell_GSM183483         Blood_cell_GSM343817
## Blood_cell_GSM183485         Blood_cell_GSM343818
## Blood_cell_GSM183193         Blood_cell_GSM343819
## Blood_cell_GSM183201         Blood_cell_GSM343820
## Blood_cell_GSM183484         Blood_cell_GSM343821
## Blood_cell_GSM112670         Blood_cell_GSM343822
## Blood_cell_GSM112490         Blood_cell_GSM343823
## Blood_cell_GSM112668         Blood_cell_GSM343824
## Blood_cell_GSM112540         Blood_cell_GSM343825
## Blood_cell_GSM112491         Blood_cell_GSM343826
## Blood_cell_GSM112669         Blood_cell_GSM343827
## Blood_cell_GSM160530         Blood_cell_GSM343828
## Blood_cell_GSM112664         Blood_cell_GSM343829
## Blood_cell_GSM112666         Blood_cell_GSM343830
## Blood_cell_GSM112661         Blood_cell_GSM343831
## Blood_cell_GSM112665       Stromal_cell_GSM346941
## Blood_cell_GSM305433       Stromal_cell_GSM346942
## Blood_cell_GSM305435       Stromal_cell_GSM346943
## Blood_cell_GSM305441       Stromal_cell_GSM346944
## Blood_cell_GSM305442           Endothel_GSM346951
## Blood_cell_GSM305437           Endothel_GSM346952
## Blood_cell_GSM305439       Stromal_cell_GSM346959
## Blood_cell_GSM182000       Stromal_cell_GSM346960
## Blood_cell_GSM182002        ES_iPS_germ_GSM347916
## Blood_cell_GSM556663        ES_iPS_germ_GSM347917
## Blood_cell_GSM556665        ES_iPS_germ_GSM347918
## Blood_cell_GSM286091       Stromal_cell_GSM347919
## Blood_cell_GSM286089       Stromal_cell_GSM347920
## Blood_cell_GSM286090        ES_iPS_germ_GSM347922
## Blood_cell_GSM286017        ES_iPS_germ_GSM347923
## Blood_cell_GSM286086        ES_iPS_germ_GSM347924
## Blood_cell_GSM286087        ES_iPS_germ_GSM347925
## Blood_cell_GSM112541         Blood_cell_GSM349848
## Blood_cell_GSM260694         Blood_cell_GSM349849
## Blood_cell_GSM260695         Blood_cell_GSM350084
## Blood_cell_GSM260691         Blood_cell_GSM350085
## Blood_cell_GSM260692         Blood_cell_GSM350086
## Blood_cell_GSM260689         Blood_cell_GSM359332
## Blood_cell_GSM260697         Blood_cell_GSM359753
## Blood_cell_GSM260699         Blood_cell_GSM359754
## Blood_cell_GSM260693         Blood_cell_GSM359755
## Blood_cell_GSM260690         Blood_cell_GSM359758
## Blood_cell_GSM260696         Blood_cell_GSM359759
## Blood_cell_GSM260701         Blood_cell_GSM359760
## Blood_cell_GSM260698         Blood_cell_GSM361266
## Blood_cell_GSM260700         Blood_cell_GSM361272
## Blood_cell_GSM181974         Blood_cell_GSM361278
## Blood_cell_GSM181976         Blood_cell_GSM361283
## Blood_cell_GSM181981         Blood_cell_GSM361285
## Blood_cell_GSM181984       Stromal_cell_GSM366942
## Blood_cell_GSM181999        ES_iPS_germ_GSM367061
## Blood_cell_GSM299559        ES_iPS_germ_GSM367062
## Blood_cell_GSM299560        ES_iPS_germ_GSM367219
## Blood_cell_GSM299565        ES_iPS_germ_GSM367240
## Blood_cell_GSM160532        ES_iPS_germ_GSM367241
## Blood_cell_GSM299564        ES_iPS_germ_GSM367242
## Blood_cell_GSM140970        ES_iPS_germ_GSM367243
## Blood_cell_GSM286015        ES_iPS_germ_GSM367244
## Blood_cell_GSM112667        ES_iPS_germ_GSM367245
## Blood_cell_GSM140971        ES_iPS_germ_GSM367258
## Blood_cell_GSM181972       Stromal_cell_GSM372142
## Blood_cell_GSM264757       Stromal_cell_GSM372144
## Blood_cell_GSM264758       Stromal_cell_GSM372146
## Blood_cell_GSM264755        ES_iPS_germ_GSM372154
## Blood_cell_GSM264756        ES_iPS_germ_GSM372155
## Blood_cell_GSM160536        ES_iPS_germ_GSM372156
## Blood_cell_GSM181983        ES_iPS_germ_GSM372157
## Blood_cell_GSM181998        ES_iPS_germ_GSM372158
## Blood_cell_GSM181980        ES_iPS_germ_GSM372159
## Blood_cell_GSM182001         Blood_cell_GSM372800
## Blood_cell_GSM549579         Blood_cell_GSM372801
## Blood_cell_GSM549577         Blood_cell_GSM372802
## Blood_cell_GSM549578         Blood_cell_GSM372803
## Blood_cell_GSM549581         Blood_cell_GSM372804
## Blood_cell_GSM549580         Blood_cell_GSM372805
## Blood_cell_GSM549583         Blood_cell_GSM372806
## Blood_cell_GSM549582         Blood_cell_GSM372807
## Blood_cell_GSM549584         Blood_cell_GSM372808
## Blood_cell_GSM361278         Blood_cell_GSM372809
## Blood_cell_GSM361266         Blood_cell_GSM372810
## Blood_cell_GSM361272         Blood_cell_GSM372811
## Blood_cell_GSM361283         Blood_cell_GSM372812
## Blood_cell_GSM361285         Blood_cell_GSM372813
## Blood_cell_GSM466518         Blood_cell_GSM372814
## Blood_cell_GSM466519         Blood_cell_GSM372815
## Blood_cell_GSM466515         Blood_cell_GSM372816
## Blood_cell_GSM466516         Blood_cell_GSM372817
## Blood_cell_GSM466517         Blood_cell_GSM372818
## _C_NCIH684_liver            ES_iPS_germ_GSM378811
## Blood_cell_GSM289612         Blood_cell_GSM381339
## Blood_cell_GSM289618         Blood_cell_GSM381340
## Blood_cell_GSM289615         Blood_cell_GSM381341
## Blood_cell_GSM289617         Blood_cell_GSM381342
## Blood_cell_GSM289616         Blood_cell_GSM381343
## Blood_cell_GSM289613         Blood_cell_GSM381344
## Blood_cell_GSM289614         Blood_cell_GSM381345
## Blood_cell_GSM483483         Blood_cell_GSM381346
## Blood_cell_GSM483484           Endothel_GSM385333
## Blood_cell_GSM483485           Endothel_GSM385338
## Blood_cell_GSM483480           Endothel_GSM385350
## Blood_cell_GSM483481           Endothel_GSM385353
## Blood_cell_GSM483482       Stromal_cell_GSM402707
## Blood_cell_GSM488980        ES_iPS_germ_GSM402717
## Blood_cell_GSM488981        ES_iPS_germ_GSM402752
## Blood_cell_GSM488970        ES_iPS_germ_GSM402806
## Blood_cell_GSM488971           Endothel_GSM410666
## Blood_cell_GSM488968           Endothel_GSM410667
## Blood_cell_GSM488969           Endothel_GSM410668
## Blood_cell_GSM488982           Endothel_GSM410669
## Blood_cell_GSM488983           Endothel_GSM410672
## Blood_cell_GSM488974           Endothel_GSM410673
## Blood_cell_GSM488975           Endothel_GSM410674
## Blood_cell_GSM189447           Endothel_GSM410675
## Blood_cell_GSM189448           Endothel_GSM410678
## Blood_cell_GSM189452           Endothel_GSM410679
## Blood_cell_GSM189454           Endothel_GSM410680
## Blood_cell_GSM189451           Endothel_GSM410681
## Blood_cell_GSM189453           Endothel_GSM410684
## Blood_cell_GSM189449           Endothel_GSM410685
## Blood_cell_GSM189450           Endothel_GSM410686
## Blood_cell_GSM305432           Endothel_GSM410687
## Blood_cell_GSM305436       Stromal_cell_GSM413840
## Blood_cell_GSM305430       Stromal_cell_GSM413842
## Blood_cell_GSM305434       Stromal_cell_GSM413846
## Blood_cell_GSM182003       Stromal_cell_GSM413847
## Blood_cell_GSM182004       Stromal_cell_GSM413848
## Blood_cell_GSM181932         Blood_cell_GSM419987
## Blood_cell_GSM181934         Blood_cell_GSM419988
## Blood_cell_GSM299557         Blood_cell_GSM419989
## Blood_cell_GSM299558         Blood_cell_GSM419990
## Blood_cell_GSM305438         Blood_cell_GSM419991
## Blood_cell_GSM299563         Blood_cell_GSM419992
## Blood_cell_GSM299562         Blood_cell_GSM422109
## Blood_cell_GSM305440         Blood_cell_GSM422110
## Blood_cell_GSM422113         Blood_cell_GSM422111
## Blood_cell_GSM422114         Blood_cell_GSM422112
## Blood_cell_GSM422116         Blood_cell_GSM422113
## Blood_cell_GSM422111         Blood_cell_GSM422114
## Blood_cell_GSM422112         Blood_cell_GSM422116
## Blood_cell_GSM422110         Blood_cell_GSM432175
## Blood_cell_GSM140244         Blood_cell_GSM432176
## Blood_cell_GSM422109         Blood_cell_GSM432177
## Blood_cell_GSM1209586        Blood_cell_GSM432178
## Blood_cell_GSM1209588        Blood_cell_GSM432179
## Blood_cell_GSM1209589        Blood_cell_GSM432180
## Blood_cell_GSM1209585      Stromal_cell_GSM451153
## Blood_cell_GSM1209587      Stromal_cell_GSM451154
## Blood_cell_GSM1209560      Stromal_cell_GSM451155
## Blood_cell_GSM1209558      Stromal_cell_GSM451156
## Blood_cell_GSM1209559      Stromal_cell_GSM451157
## Blood_cell_GSM140245       Stromal_cell_GSM451158
## Blood_cell_GSM140248       Stromal_cell_GSM451160
## Blood_cell_GSM140249       Stromal_cell_GSM451161
## Blood_cell_GSM178554        Hepatocytes_GSM456349
## Blood_cell_GSM178555        Hepatocytes_GSM456350
## Blood_cell_GSM140246        Hepatocytes_GSM456351
## Blood_cell_GSM140247         Blood_cell_GSM466515
## Blood_cell_GSM178550         Blood_cell_GSM466516
## Blood_cell_GSM178551         Blood_cell_GSM466517
## Blood_cell_GSM178557         Blood_cell_GSM466518
## Blood_cell_GSM488978         Blood_cell_GSM466519
## Blood_cell_GSM178549       Stromal_cell_GSM469125
## Blood_cell_GSM178552       Stromal_cell_GSM469126
## Blood_cell_GSM178553       Stromal_cell_GSM469127
## Blood_cell_GSM488979       Stromal_cell_GSM469128
## Blood_cell_GSM178558       Stromal_cell_GSM469129
## Blood_cell_GSM299561       Stromal_cell_GSM469130
## Blood_cell_GSM178556       Stromal_cell_GSM469131
## Blood_cell_GSM299556       Stromal_cell_GSM469132
## Blood_cell_GSM432176       Stromal_cell_GSM469136
## Blood_cell_GSM350084        ES_iPS_germ_GSM469409
## Blood_cell_GSM350085         Neuro_endo_GSM469411
## Blood_cell_GSM350086         Neuro_endo_GSM469412
## Blood_cell_GSM432180           Endothel_GSM476782
## Blood_cell_GSM432178           Endothel_GSM476783
## Blood_cell_GSM432179           Endothel_GSM476784
## Blood_cell_GSM432175           Endothel_GSM476785
## Blood_cell_GSM432177           Endothel_GSM476786
## Blood_cell_GSM556647         Blood_cell_GSM483480
## Blood_cell_GSM488976         Blood_cell_GSM483481
## Blood_cell_GSM488977         Blood_cell_GSM483482
## Blood_cell_GSM1209591        Blood_cell_GSM483483
## Blood_cell_GSM1209595        Blood_cell_GSM483484
## Blood_cell_GSM1209594        Blood_cell_GSM483485
## Blood_cell_GSM1209592        Blood_cell_GSM488968
## Blood_cell_GSM1209593        Blood_cell_GSM488969
## Blood_cell_GSM1209598        Blood_cell_GSM488970
## Blood_cell_GSM1209597        Blood_cell_GSM488971
## Blood_cell_GSM1209596        Blood_cell_GSM488972
## Blood_cell_GSM1209599        Blood_cell_GSM488973
## Blood_cell_GSM279574         Blood_cell_GSM488974
## Blood_cell_GSM279580         Blood_cell_GSM488975
## Blood_cell_GSM279577         Blood_cell_GSM488976
## Blood_cell_GSM279578         Blood_cell_GSM488977
## Blood_cell_GSM279581         Blood_cell_GSM488978
## Blood_cell_GSM279582         Blood_cell_GSM488979
## Blood_cell_GSM279575         Blood_cell_GSM488980
## Blood_cell_GSM279576         Blood_cell_GSM488981
## Blood_cell_GSM279572         Blood_cell_GSM488982
## Blood_cell_GSM279573         Blood_cell_GSM488983
## Blood_cell_GSM279583           Endothel_GSM492832
## Blood_cell_GSM279579           Endothel_GSM492833
## Blood_cell_GSM279584       Stromal_cell_GSM492834
## Blood_cell_GSM372813       Stromal_cell_GSM492835
## Blood_cell_GSM372804       Stromal_cell_GSM500995
## Blood_cell_GSM372803        ES_iPS_germ_GSM500996
## Blood_cell_GSM372810        ES_iPS_germ_GSM500997
## Blood_cell_GSM372816        ES_iPS_germ_GSM500998
## Blood_cell_GSM372818        ES_iPS_germ_GSM500999
## Blood_cell_GSM372800        ES_iPS_germ_GSM501000
## Blood_cell_GSM372809       Stromal_cell_GSM501001
## Blood_cell_GSM372811       Stromal_cell_GSM501002
## Blood_cell_GSM372808       Stromal_cell_GSM501003
## Blood_cell_GSM372817        ES_iPS_germ_GSM501004
## Blood_cell_GSM372806        ES_iPS_germ_GSM501005
## Blood_cell_GSM372807        ES_iPS_germ_GSM501006
## Blood_cell_GSM372801        ES_iPS_germ_GSM501007
## Blood_cell_GSM372802        ES_iPS_germ_GSM501008
## Blood_cell_GSM372812        ES_iPS_germ_GSM501009
## Blood_cell_GSM372805       Stromal_cell_GSM501890
## Blood_cell_GSM372814       Stromal_cell_GSM501891
## Blood_cell_GSM372815       Stromal_cell_GSM501892
## Blood_cell_GSM1209577      Stromal_cell_GSM501893
## Blood_cell_GSM1209580      Stromal_cell_GSM501894
## Blood_cell_GSM1209578      Stromal_cell_GSM501895
## Blood_cell_GSM1209579        Blood_cell_GSM514669
## Blood_cell_GSM1209582        Blood_cell_GSM514670
## Blood_cell_GSM1209561        Blood_cell_GSM514671
## Blood_cell_GSM1209576        Blood_cell_GSM514672
## Blood_cell_GSM1209563       ES_iPS_germ_GSM530601
## Blood_cell_GSM1209573       ES_iPS_germ_GSM530602
## Blood_cell_GSM1209562       ES_iPS_germ_GSM530603
## Blood_cell_GSM1209583       ES_iPS_germ_GSM530604
## Blood_cell_GSM1209575       ES_iPS_germ_GSM530605
## Blood_cell_GSM1209581       ES_iPS_germ_GSM530606
## Blood_cell_GSM1209574       ES_iPS_germ_GSM530607
## Blood_cell_GSM1209584       ES_iPS_germ_GSM530611
## Blood_cell_GSM153893          Neuro_endo_GSM53382
## Blood_cell_GSM154073          Neuro_endo_GSM53383
## Blood_cell_GSM154084          Neuro_endo_GSM53384
## Blood_cell_GSM154077          Neuro_endo_GSM53385
## Blood_cell_GSM154078          Neuro_endo_GSM53386
## Blood_cell_GSM154081          Neuro_endo_GSM53387
## Blood_cell_GSM547998        ES_iPS_germ_GSM540714
## Blood_cell_GSM548000        ES_iPS_germ_GSM540715
## Blood_cell_GSM547999        ES_iPS_germ_GSM540716
## Blood_cell_GSM548001         Blood_cell_GSM542578
## Blood_cell_GSM542578         Blood_cell_GSM547998
## Blood_cell_GSM349848         Blood_cell_GSM547999
## Blood_cell_GSM349849         Blood_cell_GSM548000
## Blood_cell_GSM310429         Blood_cell_GSM548001
## Blood_cell_GSM198944         Blood_cell_GSM549577
## Blood_cell_GSM198945         Blood_cell_GSM549578
## Blood_cell_GSM198942         Blood_cell_GSM549579
## Blood_cell_GSM198943         Blood_cell_GSM549580
## Blood_cell_GSM381341         Blood_cell_GSM549581
## Blood_cell_GSM381343         Blood_cell_GSM549582
## Blood_cell_GSM381339         Blood_cell_GSM549583
## Blood_cell_GSM381345         Blood_cell_GSM549584
## Blood_cell_GSM381340           Endothel_GSM551183
## Blood_cell_GSM381346         Blood_cell_GSM556647
## Blood_cell_GSM381342         Blood_cell_GSM556663
## Blood_cell_GSM381344         Blood_cell_GSM556665
## Blood_cell_GSM310440          Neuro_endo_GSM92231
## Blood_cell_GSM488972          Neuro_endo_GSM92232
## Blood_cell_GSM488973          Neuro_endo_GSM92233
## Blood_cell_GSM310431          Neuro_endo_GSM92234
## Blood_cell_GSM310437     _A_Alexander cells_liver
## Blood_cell_GSM310439                 _A_C3A_liver
## Blood_cell_GSM310432          _A_Hep 3B2.17_liver
## Blood_cell_GSM310436              _A_Hep G2_liver
## Blood_cell_GSM310433                _A_huH1_liver
## Blood_cell_GSM310434                _A_HuH6_liver
## Blood_cell_GSM310435                _A_HuH7_liver
## Blood_cell_GSM310430                _A_JHH5_liver
## Blood_cell_GSM310438                _A_JHH7_liver
## Blood_cell_GSM290420           _A_PLC_PRF_5_liver
## Blood_cell_GSM290414                 _B_HLE_liver
## Blood_cell_GSM290415                 _B_HLF_liver
## Blood_cell_GSM290421                _B_JHH2_liver
## Blood_cell_GSM290423                _B_JHH4_liver
## Blood_cell_GSM1209554                _B_Li7_liver
## Blood_cell_GSM1209569             _B_SNU182_liver
## Blood_cell_GSM1209556             _B_SNU387_liver
## Blood_cell_GSM1209572             _B_SNU423_liver
## Blood_cell_GSM1209555             _B_SNU449_liver
## Blood_cell_GSM1209557             _B_SNU475_liver
## Blood_cell_GSM1209564             _B_SNU761_liver
## Blood_cell_GSM1209568             _B_SNU878_liver
## Blood_cell_GSM1209566             _B_SNU886_liver
## Blood_cell_GSM1209570               _C_JHH1_liver
## Blood_cell_GSM1209567               _C_JHH6_liver
## Blood_cell_GSM1209590            _C_NCIH684_liver
## Blood_cell_GSM1209565             _C_SKHEP1_liver
## Blood_cell_GSM1209571             _C_SNU398_liver
##                          row_clst.labels.row_clst.order.
## ES_iPS_germ_GSM530604              ES_iPS_germ_GSM530604
## ES_iPS_germ_GSM530606              ES_iPS_germ_GSM530606
## ES_iPS_germ_GSM530601              ES_iPS_germ_GSM530601
## ES_iPS_germ_GSM530603              ES_iPS_germ_GSM530603
## ES_iPS_germ_GSM372156              ES_iPS_germ_GSM372156
## ES_iPS_germ_GSM372154              ES_iPS_germ_GSM372154
## ES_iPS_germ_GSM372155              ES_iPS_germ_GSM372155
## ES_iPS_germ_GSM469409              ES_iPS_germ_GSM469409
## ES_iPS_germ_GSM172866              ES_iPS_germ_GSM172866
## ES_iPS_germ_GSM172865              ES_iPS_germ_GSM172865
## ES_iPS_germ_GSM172870              ES_iPS_germ_GSM172870
## ES_iPS_germ_GSM172868              ES_iPS_germ_GSM172868
## ES_iPS_germ_GSM172867              ES_iPS_germ_GSM172867
## ES_iPS_germ_GSM172869              ES_iPS_germ_GSM172869
## ES_iPS_germ_GSM540716              ES_iPS_germ_GSM540716
## ES_iPS_germ_GSM540714              ES_iPS_germ_GSM540714
## ES_iPS_germ_GSM540715              ES_iPS_germ_GSM540715
## ES_iPS_germ_GSM402806              ES_iPS_germ_GSM402806
## ES_iPS_germ_GSM402717              ES_iPS_germ_GSM402717
## ES_iPS_germ_GSM402752              ES_iPS_germ_GSM402752
## ES_iPS_germ_GSM530611              ES_iPS_germ_GSM530611
## _C_SNU398_liver                          _C_SNU398_liver
## ES_iPS_germ_GSM501008              ES_iPS_germ_GSM501008
## ES_iPS_germ_GSM501007              ES_iPS_germ_GSM501007
## ES_iPS_germ_GSM501009              ES_iPS_germ_GSM501009
## ES_iPS_germ_GSM501004              ES_iPS_germ_GSM501004
## ES_iPS_germ_GSM501006              ES_iPS_germ_GSM501006
## ES_iPS_germ_GSM500996              ES_iPS_germ_GSM500996
## ES_iPS_germ_GSM500997              ES_iPS_germ_GSM500997
## ES_iPS_germ_GSM501000              ES_iPS_germ_GSM501000
## ES_iPS_germ_GSM500998              ES_iPS_germ_GSM500998
## ES_iPS_germ_GSM500999              ES_iPS_germ_GSM500999
## ES_iPS_germ_GSM347922              ES_iPS_germ_GSM347922
## ES_iPS_germ_GSM501005              ES_iPS_germ_GSM501005
## ES_iPS_germ_GSM378811              ES_iPS_germ_GSM378811
## ES_iPS_germ_GSM347917              ES_iPS_germ_GSM347917
## ES_iPS_germ_GSM347916              ES_iPS_germ_GSM347916
## ES_iPS_germ_GSM347918              ES_iPS_germ_GSM347918
## ES_iPS_germ_GSM347924              ES_iPS_germ_GSM347924
## ES_iPS_germ_GSM347923              ES_iPS_germ_GSM347923
## ES_iPS_germ_GSM347925              ES_iPS_germ_GSM347925
## ES_iPS_germ_GSM225042              ES_iPS_germ_GSM225042
## ES_iPS_germ_GSM230294              ES_iPS_germ_GSM230294
## ES_iPS_germ_GSM530602              ES_iPS_germ_GSM530602
## ES_iPS_germ_GSM530605              ES_iPS_germ_GSM530605
## ES_iPS_germ_GSM530607              ES_iPS_germ_GSM530607
## ES_iPS_germ_GSM372157              ES_iPS_germ_GSM372157
## ES_iPS_germ_GSM372159              ES_iPS_germ_GSM372159
## ES_iPS_germ_GSM367062              ES_iPS_germ_GSM367062
## ES_iPS_germ_GSM372158              ES_iPS_germ_GSM372158
## ES_iPS_germ_GSM367243              ES_iPS_germ_GSM367243
## ES_iPS_germ_GSM367244              ES_iPS_germ_GSM367244
## ES_iPS_germ_GSM367245              ES_iPS_germ_GSM367245
## ES_iPS_germ_GSM367258              ES_iPS_germ_GSM367258
## ES_iPS_germ_GSM367061              ES_iPS_germ_GSM367061
## ES_iPS_germ_GSM367241              ES_iPS_germ_GSM367241
## ES_iPS_germ_GSM367242              ES_iPS_germ_GSM367242
## ES_iPS_germ_GSM367219              ES_iPS_germ_GSM367219
## ES_iPS_germ_GSM367240              ES_iPS_germ_GSM367240
## Neuro_endo_GSM53385                  Neuro_endo_GSM53385
## Neuro_endo_GSM53386                  Neuro_endo_GSM53386
## Neuro_endo_GSM53382                  Neuro_endo_GSM53382
## Neuro_endo_GSM53384                  Neuro_endo_GSM53384
## Neuro_endo_GSM53383                  Neuro_endo_GSM53383
## Neuro_endo_GSM53387                  Neuro_endo_GSM53387
## ES_iPS_germ_GSM304262              ES_iPS_germ_GSM304262
## ES_iPS_germ_GSM304260              ES_iPS_germ_GSM304260
## ES_iPS_germ_GSM304261              ES_iPS_germ_GSM304261
## ES_iPS_germ_GSM158468              ES_iPS_germ_GSM158468
## ES_iPS_germ_GSM158470              ES_iPS_germ_GSM158470
## Other_GSM173542                          Other_GSM173542
## Other_GSM173541                          Other_GSM173541
## Other_GSM173543                          Other_GSM173543
## Other_GSM173538                          Other_GSM173538
## Other_GSM173539                          Other_GSM173539
## Other_GSM173546                          Other_GSM173546
## Other_GSM173544                          Other_GSM173544
## Other_GSM173540                          Other_GSM173540
## Other_GSM173545                          Other_GSM173545
## Other_GSM173552                          Other_GSM173552
## Other_GSM173550                          Other_GSM173550
## Other_GSM173551                          Other_GSM173551
## Other_GSM173535                          Other_GSM173535
## Other_GSM173556                          Other_GSM173556
## Other_GSM173553                          Other_GSM173553
## Other_GSM173536                          Other_GSM173536
## Other_GSM173537                          Other_GSM173537
## Other_GSM173554                          Other_GSM173554
## Other_GSM173555                          Other_GSM173555
## Other_GSM173534                          Other_GSM173534
## Other_GSM173547                          Other_GSM173547
## Other_GSM173548                          Other_GSM173548
## Other_GSM173549                          Other_GSM173549
## Other_GSM173532                          Other_GSM173532
## Other_GSM173533                          Other_GSM173533
## Other_GSM119354                          Other_GSM119354
## Other_GSM119362                          Other_GSM119362
## Other_GSM119360                          Other_GSM119360
## Other_GSM119357                          Other_GSM119357
## Other_GSM119359                          Other_GSM119359
## Other_GSM119361                          Other_GSM119361
## Other_GSM119371                          Other_GSM119371
## Other_GSM119366                          Other_GSM119366
## Other_GSM119369                          Other_GSM119369
## Other_GSM119372                          Other_GSM119372
## Other_GSM299096                          Other_GSM299096
## Other_GSM299095                          Other_GSM299095
## Other_GSM299097                          Other_GSM299097
## Other_GSM299098                          Other_GSM299098
## Other_GSM299099                          Other_GSM299099
## Other_GSM299100                          Other_GSM299100
## Endothel_GSM410679                    Endothel_GSM410679
## Endothel_GSM410680                    Endothel_GSM410680
## Endothel_GSM410681                    Endothel_GSM410681
## Endothel_GSM410678                    Endothel_GSM410678
## Endothel_GSM410666                    Endothel_GSM410666
## Endothel_GSM410669                    Endothel_GSM410669
## Endothel_GSM410667                    Endothel_GSM410667
## Endothel_GSM410668                    Endothel_GSM410668
## Endothel_GSM410675                    Endothel_GSM410675
## Endothel_GSM410684                    Endothel_GSM410684
## Endothel_GSM410673                    Endothel_GSM410673
## Endothel_GSM410672                    Endothel_GSM410672
## Endothel_GSM410674                    Endothel_GSM410674
## Endothel_GSM410685                    Endothel_GSM410685
## Endothel_GSM410686                    Endothel_GSM410686
## Endothel_GSM410687                    Endothel_GSM410687
## Endothel_GSM143898                    Endothel_GSM143898
## Endothel_GSM143900                    Endothel_GSM143900
## Endothel_GSM143910                    Endothel_GSM143910
## Endothel_GSM143914                    Endothel_GSM143914
## Endothel_GSM143717                    Endothel_GSM143717
## Endothel_GSM143907                    Endothel_GSM143907
## Endothel_GSM305787                    Endothel_GSM305787
## Endothel_GSM305784                    Endothel_GSM305784
## Endothel_GSM305785                    Endothel_GSM305785
## Endothel_GSM476784                    Endothel_GSM476784
## Endothel_GSM476783                    Endothel_GSM476783
## Endothel_GSM476786                    Endothel_GSM476786
## Endothel_GSM476782                    Endothel_GSM476782
## Endothel_GSM476785                    Endothel_GSM476785
## Endothel_GSM492832                    Endothel_GSM492832
## Endothel_GSM492833                    Endothel_GSM492833
## Endothel_GSM141252                    Endothel_GSM141252
## Endothel_GSM141253                    Endothel_GSM141253
## Endothel_GSM141251                    Endothel_GSM141251
## Endothel_GSM141255                    Endothel_GSM141255
## Endothel_GSM330314                    Endothel_GSM330314
## Endothel_GSM143726                    Endothel_GSM143726
## Endothel_GSM335859                    Endothel_GSM335859
## Endothel_GSM330313                    Endothel_GSM330313
## Endothel_GSM335393                    Endothel_GSM335393
## Endothel_GSM335851                    Endothel_GSM335851
## Endothel_GSM335395                    Endothel_GSM335395
## Endothel_GSM385350                    Endothel_GSM385350
## Endothel_GSM385353                    Endothel_GSM385353
## Endothel_GSM143727                    Endothel_GSM143727
## Endothel_GSM385333                    Endothel_GSM385333
## Endothel_GSM385338                    Endothel_GSM385338
## Endothel_GSM346952                    Endothel_GSM346952
## Endothel_GSM346951                    Endothel_GSM346951
## Endothel_GSM551183                    Endothel_GSM551183
## Endothel_GSM330315                    Endothel_GSM330315
## Endothel_GSM335904                    Endothel_GSM335904
## Endothel_GSM330316                    Endothel_GSM330316
## Endothel_GSM335396                    Endothel_GSM335396
## Endothel_GSM335906                    Endothel_GSM335906
## Endothel_GSM336559                    Endothel_GSM336559
## Endothel_GSM143729                    Endothel_GSM143729
## Endothel_GSM143728                    Endothel_GSM143728
## Endothel_GSM143731                    Endothel_GSM143731
## Endothel_GSM143732                    Endothel_GSM143732
## Endothel_GSM143733                    Endothel_GSM143733
## Endothel_GSM143730                    Endothel_GSM143730
## Endothel_GSM305786                    Endothel_GSM305786
## Stromal_cell_GSM413842            Stromal_cell_GSM413842
## Stromal_cell_GSM372142            Stromal_cell_GSM372142
## Stromal_cell_GSM372144            Stromal_cell_GSM372144
## Stromal_cell_GSM372146            Stromal_cell_GSM372146
## Stromal_cell_GSM366942            Stromal_cell_GSM366942
## Stromal_cell_GSM402707            Stromal_cell_GSM402707
## Stromal_cell_GSM500995            Stromal_cell_GSM500995
## Stromal_cell_GSM347919            Stromal_cell_GSM347919
## Stromal_cell_GSM347920            Stromal_cell_GSM347920
## Stromal_cell_GSM501001            Stromal_cell_GSM501001
## Stromal_cell_GSM501002            Stromal_cell_GSM501002
## Stromal_cell_GSM501003            Stromal_cell_GSM501003
## Stromal_cell_GSM501890            Stromal_cell_GSM501890
## Stromal_cell_GSM501895            Stromal_cell_GSM501895
## Stromal_cell_GSM501891            Stromal_cell_GSM501891
## Stromal_cell_GSM501894            Stromal_cell_GSM501894
## Stromal_cell_GSM501892            Stromal_cell_GSM501892
## Stromal_cell_GSM501893            Stromal_cell_GSM501893
## Stromal_cell_GSM260309            Stromal_cell_GSM260309
## Stromal_cell_GSM260311            Stromal_cell_GSM260311
## Stromal_cell_GSM260312            Stromal_cell_GSM260312
## Stromal_cell_GSM260310            Stromal_cell_GSM260310
## Stromal_cell_GSM260313            Stromal_cell_GSM260313
## Stromal_cell_GSM260305            Stromal_cell_GSM260305
## Stromal_cell_GSM260306            Stromal_cell_GSM260306
## Stromal_cell_GSM260308            Stromal_cell_GSM260308
## Stromal_cell_GSM260321            Stromal_cell_GSM260321
## Stromal_cell_GSM260307            Stromal_cell_GSM260307
## Stromal_cell_GSM260314            Stromal_cell_GSM260314
## Stromal_cell_GSM260322            Stromal_cell_GSM260322
## Stromal_cell_GSM287219            Stromal_cell_GSM287219
## Stromal_cell_GSM287218            Stromal_cell_GSM287218
## Stromal_cell_GSM287222            Stromal_cell_GSM287222
## Stromal_cell_GSM287217            Stromal_cell_GSM287217
## Stromal_cell_GSM287216            Stromal_cell_GSM287216
## Stromal_cell_GSM287220            Stromal_cell_GSM287220
## Stromal_cell_GSM239260            Stromal_cell_GSM239260
## Stromal_cell_GSM239379            Stromal_cell_GSM239379
## Stromal_cell_GSM239457            Stromal_cell_GSM239457
## Stromal_cell_GSM239606            Stromal_cell_GSM239606
## Stromal_cell_GSM239612            Stromal_cell_GSM239612
## Stromal_cell_GSM239613            Stromal_cell_GSM239613
## Stromal_cell_GSM239668            Stromal_cell_GSM239668
## Stromal_cell_GSM239616            Stromal_cell_GSM239616
## Stromal_cell_GSM239669            Stromal_cell_GSM239669
## Stromal_cell_GSM413847            Stromal_cell_GSM413847
## Stromal_cell_GSM413846            Stromal_cell_GSM413846
## Stromal_cell_GSM413848            Stromal_cell_GSM413848
## Stromal_cell_GSM260669            Stromal_cell_GSM260669
## Stromal_cell_GSM260672            Stromal_cell_GSM260672
## Stromal_cell_GSM260671            Stromal_cell_GSM260671
## Stromal_cell_GSM260670            Stromal_cell_GSM260670
## Stromal_cell_GSM260673            Stromal_cell_GSM260673
## Stromal_cell_GSM260682            Stromal_cell_GSM260682
## Stromal_cell_GSM260685            Stromal_cell_GSM260685
## Stromal_cell_GSM260674            Stromal_cell_GSM260674
## Stromal_cell_GSM260684            Stromal_cell_GSM260684
## Stromal_cell_GSM260666            Stromal_cell_GSM260666
## Stromal_cell_GSM260665            Stromal_cell_GSM260665
## Stromal_cell_GSM260663            Stromal_cell_GSM260663
## Stromal_cell_GSM260668            Stromal_cell_GSM260668
## Stromal_cell_GSM260664            Stromal_cell_GSM260664
## Stromal_cell_GSM260675            Stromal_cell_GSM260675
## Stromal_cell_GSM260681            Stromal_cell_GSM260681
## Stromal_cell_GSM260667            Stromal_cell_GSM260667
## Stromal_cell_GSM260678            Stromal_cell_GSM260678
## Stromal_cell_GSM260676            Stromal_cell_GSM260676
## Stromal_cell_GSM260679            Stromal_cell_GSM260679
## Stromal_cell_GSM260686            Stromal_cell_GSM260686
## Stromal_cell_GSM260680            Stromal_cell_GSM260680
## Stromal_cell_GSM260683            Stromal_cell_GSM260683
## Stromal_cell_GSM451153            Stromal_cell_GSM451153
## Stromal_cell_GSM451156            Stromal_cell_GSM451156
## Stromal_cell_GSM260661            Stromal_cell_GSM260661
## Stromal_cell_GSM260662            Stromal_cell_GSM260662
## Stromal_cell_GSM250019            Stromal_cell_GSM250019
## Stromal_cell_GSM260657            Stromal_cell_GSM260657
## Stromal_cell_GSM451154            Stromal_cell_GSM451154
## Stromal_cell_GSM451157            Stromal_cell_GSM451157
## Stromal_cell_GSM451158            Stromal_cell_GSM451158
## Stromal_cell_GSM250020            Stromal_cell_GSM250020
## Stromal_cell_GSM260658            Stromal_cell_GSM260658
## Stromal_cell_GSM250021            Stromal_cell_GSM250021
## Stromal_cell_GSM260659            Stromal_cell_GSM260659
## Stromal_cell_GSM451155            Stromal_cell_GSM451155
## Stromal_cell_GSM451160            Stromal_cell_GSM451160
## Stromal_cell_GSM451161            Stromal_cell_GSM451161
## _B_Li7_liver                                _B_Li7_liver
## _B_SNU878_liver                          _B_SNU878_liver
## Stromal_cell_GSM346959            Stromal_cell_GSM346959
## Stromal_cell_GSM346960            Stromal_cell_GSM346960
## Stromal_cell_GSM116106            Stromal_cell_GSM116106
## Stromal_cell_GSM116103            Stromal_cell_GSM116103
## Stromal_cell_GSM116101            Stromal_cell_GSM116101
## Stromal_cell_GSM116102            Stromal_cell_GSM116102
## Stromal_cell_GSM116104            Stromal_cell_GSM116104
## Stromal_cell_GSM116105            Stromal_cell_GSM116105
## Stromal_cell_GSM346941            Stromal_cell_GSM346941
## Stromal_cell_GSM346942            Stromal_cell_GSM346942
## Stromal_cell_GSM492834            Stromal_cell_GSM492834
## Stromal_cell_GSM492835            Stromal_cell_GSM492835
## Stromal_cell_GSM322374            Stromal_cell_GSM322374
## Stromal_cell_GSM322375            Stromal_cell_GSM322375
## Stromal_cell_GSM322376            Stromal_cell_GSM322376
## Stromal_cell_GSM322377            Stromal_cell_GSM322377
## Stromal_cell_GSM413840            Stromal_cell_GSM413840
## Stromal_cell_GSM469126            Stromal_cell_GSM469126
## Stromal_cell_GSM469130            Stromal_cell_GSM469130
## Stromal_cell_GSM469127            Stromal_cell_GSM469127
## Stromal_cell_GSM469128            Stromal_cell_GSM469128
## Stromal_cell_GSM469129            Stromal_cell_GSM469129
## Stromal_cell_GSM346944            Stromal_cell_GSM346944
## Stromal_cell_GSM469125            Stromal_cell_GSM469125
## Stromal_cell_GSM346943            Stromal_cell_GSM346943
## Stromal_cell_GSM469132            Stromal_cell_GSM469132
## Stromal_cell_GSM469131            Stromal_cell_GSM469131
## Stromal_cell_GSM469136            Stromal_cell_GSM469136
## Stromal_cell_GSM265498            Stromal_cell_GSM265498
## Stromal_cell_GSM265494            Stromal_cell_GSM265494
## Stromal_cell_GSM265496            Stromal_cell_GSM265496
## Stromal_cell_GSM265495            Stromal_cell_GSM265495
## Stromal_cell_GSM265497            Stromal_cell_GSM265497
## Stromal_cell_GSM265499            Stromal_cell_GSM265499
## Neuro_endo_GSM92232                  Neuro_endo_GSM92232
## Neuro_endo_GSM92234                  Neuro_endo_GSM92234
## Neuro_endo_GSM92231                  Neuro_endo_GSM92231
## Neuro_endo_GSM92233                  Neuro_endo_GSM92233
## Neuro_endo_GSM469411                Neuro_endo_GSM469411
## Neuro_endo_GSM469412                Neuro_endo_GSM469412
## _B_SNU761_liver                          _B_SNU761_liver
## _C_SKHEP1_liver                          _C_SKHEP1_liver
## _B_SNU182_liver                          _B_SNU182_liver
## _B_SNU449_liver                          _B_SNU449_liver
## _B_HLE_liver                                _B_HLE_liver
## _B_HLF_liver                                _B_HLF_liver
## _B_SNU475_liver                          _B_SNU475_liver
## _B_SNU886_liver                          _B_SNU886_liver
## _B_JHH4_liver                              _B_JHH4_liver
## _B_SNU387_liver                          _B_SNU387_liver
## _B_SNU423_liver                          _B_SNU423_liver
## _B_JHH2_liver                              _B_JHH2_liver
## _C_JHH6_liver                              _C_JHH6_liver
## Hepatocytes_GSM456350              Hepatocytes_GSM456350
## Hepatocytes_GSM456349              Hepatocytes_GSM456349
## Hepatocytes_GSM456351              Hepatocytes_GSM456351
## _A_Alexander cells_liver        _A_Alexander cells_liver
## _A_PLC_PRF_5_liver                    _A_PLC_PRF_5_liver
## _A_HuH6_liver                              _A_HuH6_liver
## _A_huH1_liver                              _A_huH1_liver
## _A_HuH7_liver                              _A_HuH7_liver
## _A_JHH5_liver                              _A_JHH5_liver
## _A_JHH7_liver                              _A_JHH7_liver
## _A_Hep 3B2.17_liver                  _A_Hep 3B2.17_liver
## _A_C3A_liver                                _A_C3A_liver
## _A_Hep G2_liver                          _A_Hep G2_liver
## _C_JHH1_liver                              _C_JHH1_liver
## Blood_cell_GSM359754                Blood_cell_GSM359754
## Blood_cell_GSM359760                Blood_cell_GSM359760
## Blood_cell_GSM359758                Blood_cell_GSM359758
## Blood_cell_GSM359753                Blood_cell_GSM359753
## Blood_cell_GSM359759                Blood_cell_GSM359759
## Blood_cell_GSM359332                Blood_cell_GSM359332
## Blood_cell_GSM359755                Blood_cell_GSM359755
## Blood_cell_GSM300401                Blood_cell_GSM300401
## Blood_cell_GSM300399                Blood_cell_GSM300399
## Blood_cell_GSM300403                Blood_cell_GSM300403
## Blood_cell_GSM300404                Blood_cell_GSM300404
## Blood_cell_GSM300392                Blood_cell_GSM300392
## Blood_cell_GSM300394                Blood_cell_GSM300394
## Blood_cell_GSM300398                Blood_cell_GSM300398
## Blood_cell_GSM300393                Blood_cell_GSM300393
## Blood_cell_GSM300402                Blood_cell_GSM300402
## Blood_cell_GSM300390                Blood_cell_GSM300390
## Blood_cell_GSM300389                Blood_cell_GSM300389
## Blood_cell_GSM300395                Blood_cell_GSM300395
## Blood_cell_GSM514672                Blood_cell_GSM514672
## Blood_cell_GSM514670                Blood_cell_GSM514670
## Blood_cell_GSM514669                Blood_cell_GSM514669
## Blood_cell_GSM343806                Blood_cell_GSM343806
## Blood_cell_GSM343822                Blood_cell_GSM343822
## Blood_cell_GSM343824                Blood_cell_GSM343824
## Blood_cell_GSM514671                Blood_cell_GSM514671
## Blood_cell_GSM343817                Blood_cell_GSM343817
## Blood_cell_GSM343819                Blood_cell_GSM343819
## Blood_cell_GSM343815                Blood_cell_GSM343815
## Blood_cell_GSM343805                Blood_cell_GSM343805
## Blood_cell_GSM343831                Blood_cell_GSM343831
## Blood_cell_GSM343807                Blood_cell_GSM343807
## Blood_cell_GSM343813                Blood_cell_GSM343813
## Blood_cell_GSM343825                Blood_cell_GSM343825
## Blood_cell_GSM343811                Blood_cell_GSM343811
## Blood_cell_GSM343829                Blood_cell_GSM343829
## Blood_cell_GSM343808                Blood_cell_GSM343808
## Blood_cell_GSM343810                Blood_cell_GSM343810
## Blood_cell_GSM343812                Blood_cell_GSM343812
## Blood_cell_GSM419989                Blood_cell_GSM419989
## Blood_cell_GSM343828                Blood_cell_GSM343828
## Blood_cell_GSM343830                Blood_cell_GSM343830
## Blood_cell_GSM343816                Blood_cell_GSM343816
## Blood_cell_GSM343818                Blood_cell_GSM343818
## Blood_cell_GSM419988                Blood_cell_GSM419988
## Blood_cell_GSM343802                Blood_cell_GSM343802
## Blood_cell_GSM343804                Blood_cell_GSM343804
## Blood_cell_GSM419992                Blood_cell_GSM419992
## Blood_cell_GSM419987                Blood_cell_GSM419987
## Blood_cell_GSM419990                Blood_cell_GSM419990
## Blood_cell_GSM419991                Blood_cell_GSM419991
## Blood_cell_GSM343821                Blood_cell_GSM343821
## Blood_cell_GSM343809                Blood_cell_GSM343809
## Blood_cell_GSM343814                Blood_cell_GSM343814
## Blood_cell_GSM343826                Blood_cell_GSM343826
## Blood_cell_GSM343803                Blood_cell_GSM343803
## Blood_cell_GSM343827                Blood_cell_GSM343827
## Blood_cell_GSM343820                Blood_cell_GSM343820
## Blood_cell_GSM343823                Blood_cell_GSM343823
## Blood_cell_GSM132924                Blood_cell_GSM132924
## Blood_cell_GSM132926                Blood_cell_GSM132926
## Blood_cell_GSM132928                Blood_cell_GSM132928
## Blood_cell_GSM132927                Blood_cell_GSM132927
## Blood_cell_GSM132919                Blood_cell_GSM132919
## Blood_cell_GSM132923                Blood_cell_GSM132923
## Blood_cell_GSM132925                Blood_cell_GSM132925
## Blood_cell_GSM132921                Blood_cell_GSM132921
## Blood_cell_GSM132922                Blood_cell_GSM132922
## Blood_cell_GSM132929                Blood_cell_GSM132929
## Blood_cell_GSM132930                Blood_cell_GSM132930
## Blood_cell_GSM181930                Blood_cell_GSM181930
## Blood_cell_GSM181971                Blood_cell_GSM181971
## Blood_cell_GSM181973                Blood_cell_GSM181973
## Blood_cell_GSM181982                Blood_cell_GSM181982
## Blood_cell_GSM181997                Blood_cell_GSM181997
## Blood_cell_GSM181931                Blood_cell_GSM181931
## Blood_cell_GSM181933                Blood_cell_GSM181933
## Blood_cell_GSM181857                Blood_cell_GSM181857
## Blood_cell_GSM181978                Blood_cell_GSM181978
## Blood_cell_GSM140953                Blood_cell_GSM140953
## Blood_cell_GSM160534                Blood_cell_GSM160534
## Blood_cell_GSM140968                Blood_cell_GSM140968
## Blood_cell_GSM140969                Blood_cell_GSM140969
## Blood_cell_GSM286088                Blood_cell_GSM286088
## Blood_cell_GSM320546                Blood_cell_GSM320546
## Blood_cell_GSM320544                Blood_cell_GSM320544
## Blood_cell_GSM320548                Blood_cell_GSM320548
## Blood_cell_GSM320550                Blood_cell_GSM320550
## Blood_cell_GSM320552                Blood_cell_GSM320552
## Blood_cell_GSM320545                Blood_cell_GSM320545
## Blood_cell_GSM320551                Blood_cell_GSM320551
## Blood_cell_GSM320547                Blood_cell_GSM320547
## Blood_cell_GSM320549                Blood_cell_GSM320549
## Blood_cell_GSM140973                Blood_cell_GSM140973
## Blood_cell_GSM320543                Blood_cell_GSM320543
## Blood_cell_GSM183305                Blood_cell_GSM183305
## Blood_cell_GSM183393                Blood_cell_GSM183393
## Blood_cell_GSM183482                Blood_cell_GSM183482
## Blood_cell_GSM183467                Blood_cell_GSM183467
## Blood_cell_GSM183392                Blood_cell_GSM183392
## Blood_cell_GSM183466                Blood_cell_GSM183466
## Blood_cell_GSM183316                Blood_cell_GSM183316
## Blood_cell_GSM183463                Blood_cell_GSM183463
## Blood_cell_GSM183394                Blood_cell_GSM183394
## Blood_cell_GSM183462                Blood_cell_GSM183462
## Blood_cell_GSM183306                Blood_cell_GSM183306
## Blood_cell_GSM183217                Blood_cell_GSM183217
## Blood_cell_GSM183315                Blood_cell_GSM183315
## Blood_cell_GSM183464                Blood_cell_GSM183464
## Blood_cell_GSM183465                Blood_cell_GSM183465
## Blood_cell_GSM183487                Blood_cell_GSM183487
## Blood_cell_GSM183209                Blood_cell_GSM183209
## Blood_cell_GSM183165                Blood_cell_GSM183165
## Blood_cell_GSM183486                Blood_cell_GSM183486
## Blood_cell_GSM183196                Blood_cell_GSM183196
## Blood_cell_GSM183483                Blood_cell_GSM183483
## Blood_cell_GSM183485                Blood_cell_GSM183485
## Blood_cell_GSM183193                Blood_cell_GSM183193
## Blood_cell_GSM183201                Blood_cell_GSM183201
## Blood_cell_GSM183484                Blood_cell_GSM183484
## Blood_cell_GSM112670                Blood_cell_GSM112670
## Blood_cell_GSM112490                Blood_cell_GSM112490
## Blood_cell_GSM112668                Blood_cell_GSM112668
## Blood_cell_GSM112540                Blood_cell_GSM112540
## Blood_cell_GSM112491                Blood_cell_GSM112491
## Blood_cell_GSM112669                Blood_cell_GSM112669
## Blood_cell_GSM160530                Blood_cell_GSM160530
## Blood_cell_GSM112664                Blood_cell_GSM112664
## Blood_cell_GSM112666                Blood_cell_GSM112666
## Blood_cell_GSM112661                Blood_cell_GSM112661
## Blood_cell_GSM112665                Blood_cell_GSM112665
## Blood_cell_GSM305433                Blood_cell_GSM305433
## Blood_cell_GSM305435                Blood_cell_GSM305435
## Blood_cell_GSM305441                Blood_cell_GSM305441
## Blood_cell_GSM305442                Blood_cell_GSM305442
## Blood_cell_GSM305437                Blood_cell_GSM305437
## Blood_cell_GSM305439                Blood_cell_GSM305439
## Blood_cell_GSM182000                Blood_cell_GSM182000
## Blood_cell_GSM182002                Blood_cell_GSM182002
## Blood_cell_GSM556663                Blood_cell_GSM556663
## Blood_cell_GSM556665                Blood_cell_GSM556665
## Blood_cell_GSM286091                Blood_cell_GSM286091
## Blood_cell_GSM286089                Blood_cell_GSM286089
## Blood_cell_GSM286090                Blood_cell_GSM286090
## Blood_cell_GSM286017                Blood_cell_GSM286017
## Blood_cell_GSM286086                Blood_cell_GSM286086
## Blood_cell_GSM286087                Blood_cell_GSM286087
## Blood_cell_GSM112541                Blood_cell_GSM112541
## Blood_cell_GSM260694                Blood_cell_GSM260694
## Blood_cell_GSM260695                Blood_cell_GSM260695
## Blood_cell_GSM260691                Blood_cell_GSM260691
## Blood_cell_GSM260692                Blood_cell_GSM260692
## Blood_cell_GSM260689                Blood_cell_GSM260689
## Blood_cell_GSM260697                Blood_cell_GSM260697
## Blood_cell_GSM260699                Blood_cell_GSM260699
## Blood_cell_GSM260693                Blood_cell_GSM260693
## Blood_cell_GSM260690                Blood_cell_GSM260690
## Blood_cell_GSM260696                Blood_cell_GSM260696
## Blood_cell_GSM260701                Blood_cell_GSM260701
## Blood_cell_GSM260698                Blood_cell_GSM260698
## Blood_cell_GSM260700                Blood_cell_GSM260700
## Blood_cell_GSM181974                Blood_cell_GSM181974
## Blood_cell_GSM181976                Blood_cell_GSM181976
## Blood_cell_GSM181981                Blood_cell_GSM181981
## Blood_cell_GSM181984                Blood_cell_GSM181984
## Blood_cell_GSM181999                Blood_cell_GSM181999
## Blood_cell_GSM299559                Blood_cell_GSM299559
## Blood_cell_GSM299560                Blood_cell_GSM299560
## Blood_cell_GSM299565                Blood_cell_GSM299565
## Blood_cell_GSM160532                Blood_cell_GSM160532
## Blood_cell_GSM299564                Blood_cell_GSM299564
## Blood_cell_GSM140970                Blood_cell_GSM140970
## Blood_cell_GSM286015                Blood_cell_GSM286015
## Blood_cell_GSM112667                Blood_cell_GSM112667
## Blood_cell_GSM140971                Blood_cell_GSM140971
## Blood_cell_GSM181972                Blood_cell_GSM181972
## Blood_cell_GSM264757                Blood_cell_GSM264757
## Blood_cell_GSM264758                Blood_cell_GSM264758
## Blood_cell_GSM264755                Blood_cell_GSM264755
## Blood_cell_GSM264756                Blood_cell_GSM264756
## Blood_cell_GSM160536                Blood_cell_GSM160536
## Blood_cell_GSM181983                Blood_cell_GSM181983
## Blood_cell_GSM181998                Blood_cell_GSM181998
## Blood_cell_GSM181980                Blood_cell_GSM181980
## Blood_cell_GSM182001                Blood_cell_GSM182001
## Blood_cell_GSM549579                Blood_cell_GSM549579
## Blood_cell_GSM549577                Blood_cell_GSM549577
## Blood_cell_GSM549578                Blood_cell_GSM549578
## Blood_cell_GSM549581                Blood_cell_GSM549581
## Blood_cell_GSM549580                Blood_cell_GSM549580
## Blood_cell_GSM549583                Blood_cell_GSM549583
## Blood_cell_GSM549582                Blood_cell_GSM549582
## Blood_cell_GSM549584                Blood_cell_GSM549584
## Blood_cell_GSM361278                Blood_cell_GSM361278
## Blood_cell_GSM361266                Blood_cell_GSM361266
## Blood_cell_GSM361272                Blood_cell_GSM361272
## Blood_cell_GSM361283                Blood_cell_GSM361283
## Blood_cell_GSM361285                Blood_cell_GSM361285
## Blood_cell_GSM466518                Blood_cell_GSM466518
## Blood_cell_GSM466519                Blood_cell_GSM466519
## Blood_cell_GSM466515                Blood_cell_GSM466515
## Blood_cell_GSM466516                Blood_cell_GSM466516
## Blood_cell_GSM466517                Blood_cell_GSM466517
## _C_NCIH684_liver                        _C_NCIH684_liver
## Blood_cell_GSM289612                Blood_cell_GSM289612
## Blood_cell_GSM289618                Blood_cell_GSM289618
## Blood_cell_GSM289615                Blood_cell_GSM289615
## Blood_cell_GSM289617                Blood_cell_GSM289617
## Blood_cell_GSM289616                Blood_cell_GSM289616
## Blood_cell_GSM289613                Blood_cell_GSM289613
## Blood_cell_GSM289614                Blood_cell_GSM289614
## Blood_cell_GSM483483                Blood_cell_GSM483483
## Blood_cell_GSM483484                Blood_cell_GSM483484
## Blood_cell_GSM483485                Blood_cell_GSM483485
## Blood_cell_GSM483480                Blood_cell_GSM483480
## Blood_cell_GSM483481                Blood_cell_GSM483481
## Blood_cell_GSM483482                Blood_cell_GSM483482
## Blood_cell_GSM488980                Blood_cell_GSM488980
## Blood_cell_GSM488981                Blood_cell_GSM488981
## Blood_cell_GSM488970                Blood_cell_GSM488970
## Blood_cell_GSM488971                Blood_cell_GSM488971
## Blood_cell_GSM488968                Blood_cell_GSM488968
## Blood_cell_GSM488969                Blood_cell_GSM488969
## Blood_cell_GSM488982                Blood_cell_GSM488982
## Blood_cell_GSM488983                Blood_cell_GSM488983
## Blood_cell_GSM488974                Blood_cell_GSM488974
## Blood_cell_GSM488975                Blood_cell_GSM488975
## Blood_cell_GSM189447                Blood_cell_GSM189447
## Blood_cell_GSM189448                Blood_cell_GSM189448
## Blood_cell_GSM189452                Blood_cell_GSM189452
## Blood_cell_GSM189454                Blood_cell_GSM189454
## Blood_cell_GSM189451                Blood_cell_GSM189451
## Blood_cell_GSM189453                Blood_cell_GSM189453
## Blood_cell_GSM189449                Blood_cell_GSM189449
## Blood_cell_GSM189450                Blood_cell_GSM189450
## Blood_cell_GSM305432                Blood_cell_GSM305432
## Blood_cell_GSM305436                Blood_cell_GSM305436
## Blood_cell_GSM305430                Blood_cell_GSM305430
## Blood_cell_GSM305434                Blood_cell_GSM305434
## Blood_cell_GSM182003                Blood_cell_GSM182003
## Blood_cell_GSM182004                Blood_cell_GSM182004
## Blood_cell_GSM181932                Blood_cell_GSM181932
## Blood_cell_GSM181934                Blood_cell_GSM181934
## Blood_cell_GSM299557                Blood_cell_GSM299557
## Blood_cell_GSM299558                Blood_cell_GSM299558
## Blood_cell_GSM305438                Blood_cell_GSM305438
## Blood_cell_GSM299563                Blood_cell_GSM299563
## Blood_cell_GSM299562                Blood_cell_GSM299562
## Blood_cell_GSM305440                Blood_cell_GSM305440
## Blood_cell_GSM422113                Blood_cell_GSM422113
## Blood_cell_GSM422114                Blood_cell_GSM422114
## Blood_cell_GSM422116                Blood_cell_GSM422116
## Blood_cell_GSM422111                Blood_cell_GSM422111
## Blood_cell_GSM422112                Blood_cell_GSM422112
## Blood_cell_GSM422110                Blood_cell_GSM422110
## Blood_cell_GSM140244                Blood_cell_GSM140244
## Blood_cell_GSM422109                Blood_cell_GSM422109
## Blood_cell_GSM1209586              Blood_cell_GSM1209586
## Blood_cell_GSM1209588              Blood_cell_GSM1209588
## Blood_cell_GSM1209589              Blood_cell_GSM1209589
## Blood_cell_GSM1209585              Blood_cell_GSM1209585
## Blood_cell_GSM1209587              Blood_cell_GSM1209587
## Blood_cell_GSM1209560              Blood_cell_GSM1209560
## Blood_cell_GSM1209558              Blood_cell_GSM1209558
## Blood_cell_GSM1209559              Blood_cell_GSM1209559
## Blood_cell_GSM140245                Blood_cell_GSM140245
## Blood_cell_GSM140248                Blood_cell_GSM140248
## Blood_cell_GSM140249                Blood_cell_GSM140249
## Blood_cell_GSM178554                Blood_cell_GSM178554
## Blood_cell_GSM178555                Blood_cell_GSM178555
## Blood_cell_GSM140246                Blood_cell_GSM140246
## Blood_cell_GSM140247                Blood_cell_GSM140247
## Blood_cell_GSM178550                Blood_cell_GSM178550
## Blood_cell_GSM178551                Blood_cell_GSM178551
## Blood_cell_GSM178557                Blood_cell_GSM178557
## Blood_cell_GSM488978                Blood_cell_GSM488978
## Blood_cell_GSM178549                Blood_cell_GSM178549
## Blood_cell_GSM178552                Blood_cell_GSM178552
## Blood_cell_GSM178553                Blood_cell_GSM178553
## Blood_cell_GSM488979                Blood_cell_GSM488979
## Blood_cell_GSM178558                Blood_cell_GSM178558
## Blood_cell_GSM299561                Blood_cell_GSM299561
## Blood_cell_GSM178556                Blood_cell_GSM178556
## Blood_cell_GSM299556                Blood_cell_GSM299556
## Blood_cell_GSM432176                Blood_cell_GSM432176
## Blood_cell_GSM350084                Blood_cell_GSM350084
## Blood_cell_GSM350085                Blood_cell_GSM350085
## Blood_cell_GSM350086                Blood_cell_GSM350086
## Blood_cell_GSM432180                Blood_cell_GSM432180
## Blood_cell_GSM432178                Blood_cell_GSM432178
## Blood_cell_GSM432179                Blood_cell_GSM432179
## Blood_cell_GSM432175                Blood_cell_GSM432175
## Blood_cell_GSM432177                Blood_cell_GSM432177
## Blood_cell_GSM556647                Blood_cell_GSM556647
## Blood_cell_GSM488976                Blood_cell_GSM488976
## Blood_cell_GSM488977                Blood_cell_GSM488977
## Blood_cell_GSM1209591              Blood_cell_GSM1209591
## Blood_cell_GSM1209595              Blood_cell_GSM1209595
## Blood_cell_GSM1209594              Blood_cell_GSM1209594
## Blood_cell_GSM1209592              Blood_cell_GSM1209592
## Blood_cell_GSM1209593              Blood_cell_GSM1209593
## Blood_cell_GSM1209598              Blood_cell_GSM1209598
## Blood_cell_GSM1209597              Blood_cell_GSM1209597
## Blood_cell_GSM1209596              Blood_cell_GSM1209596
## Blood_cell_GSM1209599              Blood_cell_GSM1209599
## Blood_cell_GSM279574                Blood_cell_GSM279574
## Blood_cell_GSM279580                Blood_cell_GSM279580
## Blood_cell_GSM279577                Blood_cell_GSM279577
## Blood_cell_GSM279578                Blood_cell_GSM279578
## Blood_cell_GSM279581                Blood_cell_GSM279581
## Blood_cell_GSM279582                Blood_cell_GSM279582
## Blood_cell_GSM279575                Blood_cell_GSM279575
## Blood_cell_GSM279576                Blood_cell_GSM279576
## Blood_cell_GSM279572                Blood_cell_GSM279572
## Blood_cell_GSM279573                Blood_cell_GSM279573
## Blood_cell_GSM279583                Blood_cell_GSM279583
## Blood_cell_GSM279579                Blood_cell_GSM279579
## Blood_cell_GSM279584                Blood_cell_GSM279584
## Blood_cell_GSM372813                Blood_cell_GSM372813
## Blood_cell_GSM372804                Blood_cell_GSM372804
## Blood_cell_GSM372803                Blood_cell_GSM372803
## Blood_cell_GSM372810                Blood_cell_GSM372810
## Blood_cell_GSM372816                Blood_cell_GSM372816
## Blood_cell_GSM372818                Blood_cell_GSM372818
## Blood_cell_GSM372800                Blood_cell_GSM372800
## Blood_cell_GSM372809                Blood_cell_GSM372809
## Blood_cell_GSM372811                Blood_cell_GSM372811
## Blood_cell_GSM372808                Blood_cell_GSM372808
## Blood_cell_GSM372817                Blood_cell_GSM372817
## Blood_cell_GSM372806                Blood_cell_GSM372806
## Blood_cell_GSM372807                Blood_cell_GSM372807
## Blood_cell_GSM372801                Blood_cell_GSM372801
## Blood_cell_GSM372802                Blood_cell_GSM372802
## Blood_cell_GSM372812                Blood_cell_GSM372812
## Blood_cell_GSM372805                Blood_cell_GSM372805
## Blood_cell_GSM372814                Blood_cell_GSM372814
## Blood_cell_GSM372815                Blood_cell_GSM372815
## Blood_cell_GSM1209577              Blood_cell_GSM1209577
## Blood_cell_GSM1209580              Blood_cell_GSM1209580
## Blood_cell_GSM1209578              Blood_cell_GSM1209578
## Blood_cell_GSM1209579              Blood_cell_GSM1209579
## Blood_cell_GSM1209582              Blood_cell_GSM1209582
## Blood_cell_GSM1209561              Blood_cell_GSM1209561
## Blood_cell_GSM1209576              Blood_cell_GSM1209576
## Blood_cell_GSM1209563              Blood_cell_GSM1209563
## Blood_cell_GSM1209573              Blood_cell_GSM1209573
## Blood_cell_GSM1209562              Blood_cell_GSM1209562
## Blood_cell_GSM1209583              Blood_cell_GSM1209583
## Blood_cell_GSM1209575              Blood_cell_GSM1209575
## Blood_cell_GSM1209581              Blood_cell_GSM1209581
## Blood_cell_GSM1209574              Blood_cell_GSM1209574
## Blood_cell_GSM1209584              Blood_cell_GSM1209584
## Blood_cell_GSM153893                Blood_cell_GSM153893
## Blood_cell_GSM154073                Blood_cell_GSM154073
## Blood_cell_GSM154084                Blood_cell_GSM154084
## Blood_cell_GSM154077                Blood_cell_GSM154077
## Blood_cell_GSM154078                Blood_cell_GSM154078
## Blood_cell_GSM154081                Blood_cell_GSM154081
## Blood_cell_GSM547998                Blood_cell_GSM547998
## Blood_cell_GSM548000                Blood_cell_GSM548000
## Blood_cell_GSM547999                Blood_cell_GSM547999
## Blood_cell_GSM548001                Blood_cell_GSM548001
## Blood_cell_GSM542578                Blood_cell_GSM542578
## Blood_cell_GSM349848                Blood_cell_GSM349848
## Blood_cell_GSM349849                Blood_cell_GSM349849
## Blood_cell_GSM310429                Blood_cell_GSM310429
## Blood_cell_GSM198944                Blood_cell_GSM198944
## Blood_cell_GSM198945                Blood_cell_GSM198945
## Blood_cell_GSM198942                Blood_cell_GSM198942
## Blood_cell_GSM198943                Blood_cell_GSM198943
## Blood_cell_GSM381341                Blood_cell_GSM381341
## Blood_cell_GSM381343                Blood_cell_GSM381343
## Blood_cell_GSM381339                Blood_cell_GSM381339
## Blood_cell_GSM381345                Blood_cell_GSM381345
## Blood_cell_GSM381340                Blood_cell_GSM381340
## Blood_cell_GSM381346                Blood_cell_GSM381346
## Blood_cell_GSM381342                Blood_cell_GSM381342
## Blood_cell_GSM381344                Blood_cell_GSM381344
## Blood_cell_GSM310440                Blood_cell_GSM310440
## Blood_cell_GSM488972                Blood_cell_GSM488972
## Blood_cell_GSM488973                Blood_cell_GSM488973
## Blood_cell_GSM310431                Blood_cell_GSM310431
## Blood_cell_GSM310437                Blood_cell_GSM310437
## Blood_cell_GSM310439                Blood_cell_GSM310439
## Blood_cell_GSM310432                Blood_cell_GSM310432
## Blood_cell_GSM310436                Blood_cell_GSM310436
## Blood_cell_GSM310433                Blood_cell_GSM310433
## Blood_cell_GSM310434                Blood_cell_GSM310434
## Blood_cell_GSM310435                Blood_cell_GSM310435
## Blood_cell_GSM310430                Blood_cell_GSM310430
## Blood_cell_GSM310438                Blood_cell_GSM310438
## Blood_cell_GSM290420                Blood_cell_GSM290420
## Blood_cell_GSM290414                Blood_cell_GSM290414
## Blood_cell_GSM290415                Blood_cell_GSM290415
## Blood_cell_GSM290421                Blood_cell_GSM290421
## Blood_cell_GSM290423                Blood_cell_GSM290423
## Blood_cell_GSM1209554              Blood_cell_GSM1209554
## Blood_cell_GSM1209569              Blood_cell_GSM1209569
## Blood_cell_GSM1209556              Blood_cell_GSM1209556
## Blood_cell_GSM1209572              Blood_cell_GSM1209572
## Blood_cell_GSM1209555              Blood_cell_GSM1209555
## Blood_cell_GSM1209557              Blood_cell_GSM1209557
## Blood_cell_GSM1209564              Blood_cell_GSM1209564
## Blood_cell_GSM1209568              Blood_cell_GSM1209568
## Blood_cell_GSM1209566              Blood_cell_GSM1209566
## Blood_cell_GSM1209570              Blood_cell_GSM1209570
## Blood_cell_GSM1209567              Blood_cell_GSM1209567
## Blood_cell_GSM1209590              Blood_cell_GSM1209590
## Blood_cell_GSM1209565              Blood_cell_GSM1209565
## Blood_cell_GSM1209571              Blood_cell_GSM1209571
##                          cutree.row_clst..k...10..row_clst.order.
## ES_iPS_germ_GSM530604                                           9
## ES_iPS_germ_GSM530606                                           9
## ES_iPS_germ_GSM530601                                           9
## ES_iPS_germ_GSM530603                                           9
## ES_iPS_germ_GSM372156                                           9
## ES_iPS_germ_GSM372154                                           9
## ES_iPS_germ_GSM372155                                           9
## ES_iPS_germ_GSM469409                                           9
## ES_iPS_germ_GSM172866                                           9
## ES_iPS_germ_GSM172865                                           9
## ES_iPS_germ_GSM172870                                           9
## ES_iPS_germ_GSM172868                                           9
## ES_iPS_germ_GSM172867                                           9
## ES_iPS_germ_GSM172869                                           9
## ES_iPS_germ_GSM540716                                           9
## ES_iPS_germ_GSM540714                                           9
## ES_iPS_germ_GSM540715                                           9
## ES_iPS_germ_GSM402806                                           9
## ES_iPS_germ_GSM402717                                           9
## ES_iPS_germ_GSM402752                                           9
## ES_iPS_germ_GSM530611                                           9
## _C_SNU398_liver                                                 9
## ES_iPS_germ_GSM501008                                           9
## ES_iPS_germ_GSM501007                                           9
## ES_iPS_germ_GSM501009                                           9
## ES_iPS_germ_GSM501004                                           9
## ES_iPS_germ_GSM501006                                           9
## ES_iPS_germ_GSM500996                                           9
## ES_iPS_germ_GSM500997                                           9
## ES_iPS_germ_GSM501000                                           9
## ES_iPS_germ_GSM500998                                           9
## ES_iPS_germ_GSM500999                                           9
## ES_iPS_germ_GSM347922                                           9
## ES_iPS_germ_GSM501005                                           9
## ES_iPS_germ_GSM378811                                           9
## ES_iPS_germ_GSM347917                                           9
## ES_iPS_germ_GSM347916                                           9
## ES_iPS_germ_GSM347918                                           9
## ES_iPS_germ_GSM347924                                           9
## ES_iPS_germ_GSM347923                                           9
## ES_iPS_germ_GSM347925                                           9
## ES_iPS_germ_GSM225042                                           9
## ES_iPS_germ_GSM230294                                           9
## ES_iPS_germ_GSM530602                                           9
## ES_iPS_germ_GSM530605                                           9
## ES_iPS_germ_GSM530607                                           9
## ES_iPS_germ_GSM372157                                           9
## ES_iPS_germ_GSM372159                                           9
## ES_iPS_germ_GSM367062                                           9
## ES_iPS_germ_GSM372158                                           9
## ES_iPS_germ_GSM367243                                           9
## ES_iPS_germ_GSM367244                                           9
## ES_iPS_germ_GSM367245                                           9
## ES_iPS_germ_GSM367258                                           9
## ES_iPS_germ_GSM367061                                           9
## ES_iPS_germ_GSM367241                                           9
## ES_iPS_germ_GSM367242                                           9
## ES_iPS_germ_GSM367219                                           9
## ES_iPS_germ_GSM367240                                           9
## Neuro_endo_GSM53385                                             8
## Neuro_endo_GSM53386                                             8
## Neuro_endo_GSM53382                                             8
## Neuro_endo_GSM53384                                             8
## Neuro_endo_GSM53383                                             8
## Neuro_endo_GSM53387                                             8
## ES_iPS_germ_GSM304262                                           8
## ES_iPS_germ_GSM304260                                           8
## ES_iPS_germ_GSM304261                                           8
## ES_iPS_germ_GSM158468                                           8
## ES_iPS_germ_GSM158470                                           8
## Other_GSM173542                                                 3
## Other_GSM173541                                                 3
## Other_GSM173543                                                 3
## Other_GSM173538                                                 3
## Other_GSM173539                                                 3
## Other_GSM173546                                                 3
## Other_GSM173544                                                 3
## Other_GSM173540                                                 3
## Other_GSM173545                                                 3
## Other_GSM173552                                                 3
## Other_GSM173550                                                 3
## Other_GSM173551                                                 3
## Other_GSM173535                                                 3
## Other_GSM173556                                                 3
## Other_GSM173553                                                 3
## Other_GSM173536                                                 3
## Other_GSM173537                                                 3
## Other_GSM173554                                                 3
## Other_GSM173555                                                 3
## Other_GSM173534                                                 3
## Other_GSM173547                                                 3
## Other_GSM173548                                                 3
## Other_GSM173549                                                 3
## Other_GSM173532                                                 3
## Other_GSM173533                                                 3
## Other_GSM119354                                                 3
## Other_GSM119362                                                 3
## Other_GSM119360                                                 3
## Other_GSM119357                                                 3
## Other_GSM119359                                                 3
## Other_GSM119361                                                 3
## Other_GSM119371                                                 3
## Other_GSM119366                                                 3
## Other_GSM119369                                                 3
## Other_GSM119372                                                 3
## Other_GSM299096                                                 3
## Other_GSM299095                                                 3
## Other_GSM299097                                                 3
## Other_GSM299098                                                 3
## Other_GSM299099                                                 3
## Other_GSM299100                                                 3
## Endothel_GSM410679                                              7
## Endothel_GSM410680                                              7
## Endothel_GSM410681                                              7
## Endothel_GSM410678                                              7
## Endothel_GSM410666                                              7
## Endothel_GSM410669                                              7
## Endothel_GSM410667                                              7
## Endothel_GSM410668                                              7
## Endothel_GSM410675                                              7
## Endothel_GSM410684                                              7
## Endothel_GSM410673                                              7
## Endothel_GSM410672                                              7
## Endothel_GSM410674                                              7
## Endothel_GSM410685                                              7
## Endothel_GSM410686                                              7
## Endothel_GSM410687                                              7
## Endothel_GSM143898                                              7
## Endothel_GSM143900                                              7
## Endothel_GSM143910                                              7
## Endothel_GSM143914                                              7
## Endothel_GSM143717                                              7
## Endothel_GSM143907                                              7
## Endothel_GSM305787                                              7
## Endothel_GSM305784                                              7
## Endothel_GSM305785                                              7
## Endothel_GSM476784                                              7
## Endothel_GSM476783                                              7
## Endothel_GSM476786                                              7
## Endothel_GSM476782                                              7
## Endothel_GSM476785                                              7
## Endothel_GSM492832                                              7
## Endothel_GSM492833                                              7
## Endothel_GSM141252                                              7
## Endothel_GSM141253                                              7
## Endothel_GSM141251                                              7
## Endothel_GSM141255                                              7
## Endothel_GSM330314                                              7
## Endothel_GSM143726                                              7
## Endothel_GSM335859                                              7
## Endothel_GSM330313                                              7
## Endothel_GSM335393                                              7
## Endothel_GSM335851                                              7
## Endothel_GSM335395                                              7
## Endothel_GSM385350                                              7
## Endothel_GSM385353                                              7
## Endothel_GSM143727                                              7
## Endothel_GSM385333                                              7
## Endothel_GSM385338                                              7
## Endothel_GSM346952                                              7
## Endothel_GSM346951                                              7
## Endothel_GSM551183                                              7
## Endothel_GSM330315                                              7
## Endothel_GSM335904                                              7
## Endothel_GSM330316                                              7
## Endothel_GSM335396                                              7
## Endothel_GSM335906                                              7
## Endothel_GSM336559                                              7
## Endothel_GSM143729                                              7
## Endothel_GSM143728                                              7
## Endothel_GSM143731                                              7
## Endothel_GSM143732                                              7
## Endothel_GSM143733                                              7
## Endothel_GSM143730                                              7
## Endothel_GSM305786                                              7
## Stromal_cell_GSM413842                                          2
## Stromal_cell_GSM372142                                          2
## Stromal_cell_GSM372144                                          2
## Stromal_cell_GSM372146                                          2
## Stromal_cell_GSM366942                                          2
## Stromal_cell_GSM402707                                          2
## Stromal_cell_GSM500995                                          2
## Stromal_cell_GSM347919                                          2
## Stromal_cell_GSM347920                                          2
## Stromal_cell_GSM501001                                          2
## Stromal_cell_GSM501002                                          2
## Stromal_cell_GSM501003                                          2
## Stromal_cell_GSM501890                                          2
## Stromal_cell_GSM501895                                          2
## Stromal_cell_GSM501891                                          2
## Stromal_cell_GSM501894                                          2
## Stromal_cell_GSM501892                                          2
## Stromal_cell_GSM501893                                          2
## Stromal_cell_GSM260309                                          2
## Stromal_cell_GSM260311                                          2
## Stromal_cell_GSM260312                                          2
## Stromal_cell_GSM260310                                          2
## Stromal_cell_GSM260313                                          2
## Stromal_cell_GSM260305                                          2
## Stromal_cell_GSM260306                                          2
## Stromal_cell_GSM260308                                          2
## Stromal_cell_GSM260321                                          2
## Stromal_cell_GSM260307                                          2
## Stromal_cell_GSM260314                                          2
## Stromal_cell_GSM260322                                          2
## Stromal_cell_GSM287219                                          2
## Stromal_cell_GSM287218                                          2
## Stromal_cell_GSM287222                                          2
## Stromal_cell_GSM287217                                          2
## Stromal_cell_GSM287216                                          2
## Stromal_cell_GSM287220                                          2
## Stromal_cell_GSM239260                                          2
## Stromal_cell_GSM239379                                          2
## Stromal_cell_GSM239457                                          2
## Stromal_cell_GSM239606                                          2
## Stromal_cell_GSM239612                                          2
## Stromal_cell_GSM239613                                          2
## Stromal_cell_GSM239668                                          2
## Stromal_cell_GSM239616                                          2
## Stromal_cell_GSM239669                                          2
## Stromal_cell_GSM413847                                          2
## Stromal_cell_GSM413846                                          2
## Stromal_cell_GSM413848                                          2
## Stromal_cell_GSM260669                                          2
## Stromal_cell_GSM260672                                          2
## Stromal_cell_GSM260671                                          2
## Stromal_cell_GSM260670                                          2
## Stromal_cell_GSM260673                                          2
## Stromal_cell_GSM260682                                          2
## Stromal_cell_GSM260685                                          2
## Stromal_cell_GSM260674                                          2
## Stromal_cell_GSM260684                                          2
## Stromal_cell_GSM260666                                          2
## Stromal_cell_GSM260665                                          2
## Stromal_cell_GSM260663                                          2
## Stromal_cell_GSM260668                                          2
## Stromal_cell_GSM260664                                          2
## Stromal_cell_GSM260675                                          2
## Stromal_cell_GSM260681                                          2
## Stromal_cell_GSM260667                                          2
## Stromal_cell_GSM260678                                          2
## Stromal_cell_GSM260676                                          2
## Stromal_cell_GSM260679                                          2
## Stromal_cell_GSM260686                                          2
## Stromal_cell_GSM260680                                          2
## Stromal_cell_GSM260683                                          2
## Stromal_cell_GSM451153                                          2
## Stromal_cell_GSM451156                                          2
## Stromal_cell_GSM260661                                          2
## Stromal_cell_GSM260662                                          2
## Stromal_cell_GSM250019                                          2
## Stromal_cell_GSM260657                                          2
## Stromal_cell_GSM451154                                          2
## Stromal_cell_GSM451157                                          2
## Stromal_cell_GSM451158                                          2
## Stromal_cell_GSM250020                                          2
## Stromal_cell_GSM260658                                          2
## Stromal_cell_GSM250021                                          2
## Stromal_cell_GSM260659                                          2
## Stromal_cell_GSM451155                                          2
## Stromal_cell_GSM451160                                          2
## Stromal_cell_GSM451161                                          2
## _B_Li7_liver                                                    2
## _B_SNU878_liver                                                 2
## Stromal_cell_GSM346959                                          2
## Stromal_cell_GSM346960                                          2
## Stromal_cell_GSM116106                                          2
## Stromal_cell_GSM116103                                          2
## Stromal_cell_GSM116101                                          2
## Stromal_cell_GSM116102                                          2
## Stromal_cell_GSM116104                                          2
## Stromal_cell_GSM116105                                          2
## Stromal_cell_GSM346941                                          2
## Stromal_cell_GSM346942                                          2
## Stromal_cell_GSM492834                                          2
## Stromal_cell_GSM492835                                          2
## Stromal_cell_GSM322374                                          2
## Stromal_cell_GSM322375                                          2
## Stromal_cell_GSM322376                                          2
## Stromal_cell_GSM322377                                          2
## Stromal_cell_GSM413840                                          2
## Stromal_cell_GSM469126                                          2
## Stromal_cell_GSM469130                                          2
## Stromal_cell_GSM469127                                          2
## Stromal_cell_GSM469128                                          2
## Stromal_cell_GSM469129                                          2
## Stromal_cell_GSM346944                                          2
## Stromal_cell_GSM469125                                          2
## Stromal_cell_GSM346943                                          2
## Stromal_cell_GSM469132                                          2
## Stromal_cell_GSM469131                                          2
## Stromal_cell_GSM469136                                          2
## Stromal_cell_GSM265498                                          2
## Stromal_cell_GSM265494                                          2
## Stromal_cell_GSM265496                                          2
## Stromal_cell_GSM265495                                          2
## Stromal_cell_GSM265497                                          2
## Stromal_cell_GSM265499                                          2
## Neuro_endo_GSM92232                                             2
## Neuro_endo_GSM92234                                             2
## Neuro_endo_GSM92231                                             2
## Neuro_endo_GSM92233                                             2
## Neuro_endo_GSM469411                                            2
## Neuro_endo_GSM469412                                            2
## _B_SNU761_liver                                                 2
## _C_SKHEP1_liver                                                 2
## _B_SNU182_liver                                                 2
## _B_SNU449_liver                                                 2
## _B_HLE_liver                                                    2
## _B_HLF_liver                                                    2
## _B_SNU475_liver                                                 2
## _B_SNU886_liver                                                 2
## _B_JHH4_liver                                                   2
## _B_SNU387_liver                                                 2
## _B_SNU423_liver                                                 2
## _B_JHH2_liver                                                   2
## _C_JHH6_liver                                                   2
## Hepatocytes_GSM456350                                          10
## Hepatocytes_GSM456349                                          10
## Hepatocytes_GSM456351                                          10
## _A_Alexander cells_liver                                       10
## _A_PLC_PRF_5_liver                                             10
## _A_HuH6_liver                                                  10
## _A_huH1_liver                                                  10
## _A_HuH7_liver                                                  10
## _A_JHH5_liver                                                  10
## _A_JHH7_liver                                                  10
## _A_Hep 3B2.17_liver                                            10
## _A_C3A_liver                                                   10
## _A_Hep G2_liver                                                10
## _C_JHH1_liver                                                   1
## Blood_cell_GSM359754                                            1
## Blood_cell_GSM359760                                            1
## Blood_cell_GSM359758                                            1
## Blood_cell_GSM359753                                            1
## Blood_cell_GSM359759                                            1
## Blood_cell_GSM359332                                            1
## Blood_cell_GSM359755                                            1
## Blood_cell_GSM300401                                            1
## Blood_cell_GSM300399                                            1
## Blood_cell_GSM300403                                            1
## Blood_cell_GSM300404                                            1
## Blood_cell_GSM300392                                            1
## Blood_cell_GSM300394                                            1
## Blood_cell_GSM300398                                            1
## Blood_cell_GSM300393                                            1
## Blood_cell_GSM300402                                            1
## Blood_cell_GSM300390                                            1
## Blood_cell_GSM300389                                            1
## Blood_cell_GSM300395                                            1
## Blood_cell_GSM514672                                            1
## Blood_cell_GSM514670                                            1
## Blood_cell_GSM514669                                            1
## Blood_cell_GSM343806                                            1
## Blood_cell_GSM343822                                            1
## Blood_cell_GSM343824                                            1
## Blood_cell_GSM514671                                            1
## Blood_cell_GSM343817                                            1
## Blood_cell_GSM343819                                            1
## Blood_cell_GSM343815                                            1
## Blood_cell_GSM343805                                            1
## Blood_cell_GSM343831                                            1
## Blood_cell_GSM343807                                            1
## Blood_cell_GSM343813                                            1
## Blood_cell_GSM343825                                            1
## Blood_cell_GSM343811                                            1
## Blood_cell_GSM343829                                            1
## Blood_cell_GSM343808                                            1
## Blood_cell_GSM343810                                            1
## Blood_cell_GSM343812                                            1
## Blood_cell_GSM419989                                            1
## Blood_cell_GSM343828                                            1
## Blood_cell_GSM343830                                            1
## Blood_cell_GSM343816                                            1
## Blood_cell_GSM343818                                            1
## Blood_cell_GSM419988                                            1
## Blood_cell_GSM343802                                            1
## Blood_cell_GSM343804                                            1
## Blood_cell_GSM419992                                            1
## Blood_cell_GSM419987                                            1
## Blood_cell_GSM419990                                            1
## Blood_cell_GSM419991                                            1
## Blood_cell_GSM343821                                            1
## Blood_cell_GSM343809                                            1
## Blood_cell_GSM343814                                            1
## Blood_cell_GSM343826                                            1
## Blood_cell_GSM343803                                            1
## Blood_cell_GSM343827                                            1
## Blood_cell_GSM343820                                            1
## Blood_cell_GSM343823                                            1
## Blood_cell_GSM132924                                            1
## Blood_cell_GSM132926                                            1
## Blood_cell_GSM132928                                            1
## Blood_cell_GSM132927                                            1
## Blood_cell_GSM132919                                            1
## Blood_cell_GSM132923                                            1
## Blood_cell_GSM132925                                            1
## Blood_cell_GSM132921                                            1
## Blood_cell_GSM132922                                            1
## Blood_cell_GSM132929                                            1
## Blood_cell_GSM132930                                            1
## Blood_cell_GSM181930                                            1
## Blood_cell_GSM181971                                            1
## Blood_cell_GSM181973                                            1
## Blood_cell_GSM181982                                            1
## Blood_cell_GSM181997                                            1
## Blood_cell_GSM181931                                            1
## Blood_cell_GSM181933                                            1
## Blood_cell_GSM181857                                            1
## Blood_cell_GSM181978                                            1
## Blood_cell_GSM140953                                            1
## Blood_cell_GSM160534                                            1
## Blood_cell_GSM140968                                            1
## Blood_cell_GSM140969                                            1
## Blood_cell_GSM286088                                            1
## Blood_cell_GSM320546                                            1
## Blood_cell_GSM320544                                            1
## Blood_cell_GSM320548                                            1
## Blood_cell_GSM320550                                            1
## Blood_cell_GSM320552                                            1
## Blood_cell_GSM320545                                            1
## Blood_cell_GSM320551                                            1
## Blood_cell_GSM320547                                            1
## Blood_cell_GSM320549                                            1
## Blood_cell_GSM140973                                            1
## Blood_cell_GSM320543                                            1
## Blood_cell_GSM183305                                            1
## Blood_cell_GSM183393                                            1
## Blood_cell_GSM183482                                            1
## Blood_cell_GSM183467                                            1
## Blood_cell_GSM183392                                            1
## Blood_cell_GSM183466                                            1
## Blood_cell_GSM183316                                            1
## Blood_cell_GSM183463                                            1
## Blood_cell_GSM183394                                            1
## Blood_cell_GSM183462                                            1
## Blood_cell_GSM183306                                            1
## Blood_cell_GSM183217                                            1
## Blood_cell_GSM183315                                            1
## Blood_cell_GSM183464                                            1
## Blood_cell_GSM183465                                            1
## Blood_cell_GSM183487                                            1
## Blood_cell_GSM183209                                            1
## Blood_cell_GSM183165                                            1
## Blood_cell_GSM183486                                            1
## Blood_cell_GSM183196                                            1
## Blood_cell_GSM183483                                            1
## Blood_cell_GSM183485                                            1
## Blood_cell_GSM183193                                            1
## Blood_cell_GSM183201                                            1
## Blood_cell_GSM183484                                            1
## Blood_cell_GSM112670                                            1
## Blood_cell_GSM112490                                            1
## Blood_cell_GSM112668                                            1
## Blood_cell_GSM112540                                            1
## Blood_cell_GSM112491                                            1
## Blood_cell_GSM112669                                            1
## Blood_cell_GSM160530                                            1
## Blood_cell_GSM112664                                            1
## Blood_cell_GSM112666                                            1
## Blood_cell_GSM112661                                            1
## Blood_cell_GSM112665                                            1
## Blood_cell_GSM305433                                            1
## Blood_cell_GSM305435                                            1
## Blood_cell_GSM305441                                            1
## Blood_cell_GSM305442                                            1
## Blood_cell_GSM305437                                            1
## Blood_cell_GSM305439                                            1
## Blood_cell_GSM182000                                            1
## Blood_cell_GSM182002                                            1
## Blood_cell_GSM556663                                            1
## Blood_cell_GSM556665                                            1
## Blood_cell_GSM286091                                            1
## Blood_cell_GSM286089                                            1
## Blood_cell_GSM286090                                            1
## Blood_cell_GSM286017                                            1
## Blood_cell_GSM286086                                            1
## Blood_cell_GSM286087                                            1
## Blood_cell_GSM112541                                            1
## Blood_cell_GSM260694                                            1
## Blood_cell_GSM260695                                            1
## Blood_cell_GSM260691                                            1
## Blood_cell_GSM260692                                            1
## Blood_cell_GSM260689                                            1
## Blood_cell_GSM260697                                            1
## Blood_cell_GSM260699                                            1
## Blood_cell_GSM260693                                            1
## Blood_cell_GSM260690                                            1
## Blood_cell_GSM260696                                            1
## Blood_cell_GSM260701                                            1
## Blood_cell_GSM260698                                            1
## Blood_cell_GSM260700                                            1
## Blood_cell_GSM181974                                            1
## Blood_cell_GSM181976                                            1
## Blood_cell_GSM181981                                            1
## Blood_cell_GSM181984                                            1
## Blood_cell_GSM181999                                            1
## Blood_cell_GSM299559                                            1
## Blood_cell_GSM299560                                            1
## Blood_cell_GSM299565                                            1
## Blood_cell_GSM160532                                            1
## Blood_cell_GSM299564                                            1
## Blood_cell_GSM140970                                            1
## Blood_cell_GSM286015                                            1
## Blood_cell_GSM112667                                            1
## Blood_cell_GSM140971                                            1
## Blood_cell_GSM181972                                            1
## Blood_cell_GSM264757                                            1
## Blood_cell_GSM264758                                            1
## Blood_cell_GSM264755                                            1
## Blood_cell_GSM264756                                            1
## Blood_cell_GSM160536                                            1
## Blood_cell_GSM181983                                            1
## Blood_cell_GSM181998                                            1
## Blood_cell_GSM181980                                            1
## Blood_cell_GSM182001                                            1
## Blood_cell_GSM549579                                            5
## Blood_cell_GSM549577                                            5
## Blood_cell_GSM549578                                            5
## Blood_cell_GSM549581                                            5
## Blood_cell_GSM549580                                            5
## Blood_cell_GSM549583                                            5
## Blood_cell_GSM549582                                            5
## Blood_cell_GSM549584                                            5
## Blood_cell_GSM361278                                            5
## Blood_cell_GSM361266                                            5
## Blood_cell_GSM361272                                            5
## Blood_cell_GSM361283                                            5
## Blood_cell_GSM361285                                            5
## Blood_cell_GSM466518                                            5
## Blood_cell_GSM466519                                            5
## Blood_cell_GSM466515                                            5
## Blood_cell_GSM466516                                            5
## Blood_cell_GSM466517                                            5
## _C_NCIH684_liver                                                5
## Blood_cell_GSM289612                                            5
## Blood_cell_GSM289618                                            5
## Blood_cell_GSM289615                                            5
## Blood_cell_GSM289617                                            5
## Blood_cell_GSM289616                                            5
## Blood_cell_GSM289613                                            5
## Blood_cell_GSM289614                                            5
## Blood_cell_GSM483483                                            5
## Blood_cell_GSM483484                                            5
## Blood_cell_GSM483485                                            5
## Blood_cell_GSM483480                                            5
## Blood_cell_GSM483481                                            5
## Blood_cell_GSM483482                                            5
## Blood_cell_GSM488980                                            5
## Blood_cell_GSM488981                                            5
## Blood_cell_GSM488970                                            5
## Blood_cell_GSM488971                                            5
## Blood_cell_GSM488968                                            5
## Blood_cell_GSM488969                                            5
## Blood_cell_GSM488982                                            5
## Blood_cell_GSM488983                                            5
## Blood_cell_GSM488974                                            5
## Blood_cell_GSM488975                                            5
## Blood_cell_GSM189447                                            5
## Blood_cell_GSM189448                                            5
## Blood_cell_GSM189452                                            5
## Blood_cell_GSM189454                                            5
## Blood_cell_GSM189451                                            5
## Blood_cell_GSM189453                                            5
## Blood_cell_GSM189449                                            5
## Blood_cell_GSM189450                                            5
## Blood_cell_GSM305432                                            5
## Blood_cell_GSM305436                                            5
## Blood_cell_GSM305430                                            5
## Blood_cell_GSM305434                                            5
## Blood_cell_GSM182003                                            5
## Blood_cell_GSM182004                                            5
## Blood_cell_GSM181932                                            5
## Blood_cell_GSM181934                                            5
## Blood_cell_GSM299557                                            5
## Blood_cell_GSM299558                                            5
## Blood_cell_GSM305438                                            5
## Blood_cell_GSM299563                                            5
## Blood_cell_GSM299562                                            5
## Blood_cell_GSM305440                                            5
## Blood_cell_GSM422113                                            5
## Blood_cell_GSM422114                                            5
## Blood_cell_GSM422116                                            5
## Blood_cell_GSM422111                                            5
## Blood_cell_GSM422112                                            5
## Blood_cell_GSM422110                                            5
## Blood_cell_GSM140244                                            5
## Blood_cell_GSM422109                                            5
## Blood_cell_GSM1209586                                           5
## Blood_cell_GSM1209588                                           5
## Blood_cell_GSM1209589                                           5
## Blood_cell_GSM1209585                                           5
## Blood_cell_GSM1209587                                           5
## Blood_cell_GSM1209560                                           5
## Blood_cell_GSM1209558                                           5
## Blood_cell_GSM1209559                                           5
## Blood_cell_GSM140245                                            5
## Blood_cell_GSM140248                                            5
## Blood_cell_GSM140249                                            5
## Blood_cell_GSM178554                                            5
## Blood_cell_GSM178555                                            5
## Blood_cell_GSM140246                                            5
## Blood_cell_GSM140247                                            5
## Blood_cell_GSM178550                                            5
## Blood_cell_GSM178551                                            5
## Blood_cell_GSM178557                                            5
## Blood_cell_GSM488978                                            5
## Blood_cell_GSM178549                                            5
## Blood_cell_GSM178552                                            5
## Blood_cell_GSM178553                                            5
## Blood_cell_GSM488979                                            5
## Blood_cell_GSM178558                                            5
## Blood_cell_GSM299561                                            5
## Blood_cell_GSM178556                                            5
## Blood_cell_GSM299556                                            5
## Blood_cell_GSM432176                                            5
## Blood_cell_GSM350084                                            5
## Blood_cell_GSM350085                                            5
## Blood_cell_GSM350086                                            5
## Blood_cell_GSM432180                                            5
## Blood_cell_GSM432178                                            5
## Blood_cell_GSM432179                                            5
## Blood_cell_GSM432175                                            5
## Blood_cell_GSM432177                                            5
## Blood_cell_GSM556647                                            5
## Blood_cell_GSM488976                                            5
## Blood_cell_GSM488977                                            5
## Blood_cell_GSM1209591                                           6
## Blood_cell_GSM1209595                                           6
## Blood_cell_GSM1209594                                           6
## Blood_cell_GSM1209592                                           6
## Blood_cell_GSM1209593                                           6
## Blood_cell_GSM1209598                                           6
## Blood_cell_GSM1209597                                           6
## Blood_cell_GSM1209596                                           6
## Blood_cell_GSM1209599                                           6
## Blood_cell_GSM279574                                            4
## Blood_cell_GSM279580                                            4
## Blood_cell_GSM279577                                            4
## Blood_cell_GSM279578                                            4
## Blood_cell_GSM279581                                            4
## Blood_cell_GSM279582                                            4
## Blood_cell_GSM279575                                            4
## Blood_cell_GSM279576                                            4
## Blood_cell_GSM279572                                            4
## Blood_cell_GSM279573                                            4
## Blood_cell_GSM279583                                            4
## Blood_cell_GSM279579                                            4
## Blood_cell_GSM279584                                            4
## Blood_cell_GSM372813                                            4
## Blood_cell_GSM372804                                            4
## Blood_cell_GSM372803                                            4
## Blood_cell_GSM372810                                            4
## Blood_cell_GSM372816                                            4
## Blood_cell_GSM372818                                            4
## Blood_cell_GSM372800                                            4
## Blood_cell_GSM372809                                            4
## Blood_cell_GSM372811                                            4
## Blood_cell_GSM372808                                            4
## Blood_cell_GSM372817                                            4
## Blood_cell_GSM372806                                            4
## Blood_cell_GSM372807                                            4
## Blood_cell_GSM372801                                            4
## Blood_cell_GSM372802                                            4
## Blood_cell_GSM372812                                            4
## Blood_cell_GSM372805                                            4
## Blood_cell_GSM372814                                            4
## Blood_cell_GSM372815                                            4
## Blood_cell_GSM1209577                                           4
## Blood_cell_GSM1209580                                           4
## Blood_cell_GSM1209578                                           4
## Blood_cell_GSM1209579                                           4
## Blood_cell_GSM1209582                                           4
## Blood_cell_GSM1209561                                           4
## Blood_cell_GSM1209576                                           4
## Blood_cell_GSM1209563                                           4
## Blood_cell_GSM1209573                                           4
## Blood_cell_GSM1209562                                           4
## Blood_cell_GSM1209583                                           4
## Blood_cell_GSM1209575                                           4
## Blood_cell_GSM1209581                                           4
## Blood_cell_GSM1209574                                           4
## Blood_cell_GSM1209584                                           4
## Blood_cell_GSM153893                                            4
## Blood_cell_GSM154073                                            4
## Blood_cell_GSM154084                                            4
## Blood_cell_GSM154077                                            4
## Blood_cell_GSM154078                                            4
## Blood_cell_GSM154081                                            4
## Blood_cell_GSM547998                                            4
## Blood_cell_GSM548000                                            4
## Blood_cell_GSM547999                                            4
## Blood_cell_GSM548001                                            4
## Blood_cell_GSM542578                                            4
## Blood_cell_GSM349848                                            4
## Blood_cell_GSM349849                                            4
## Blood_cell_GSM310429                                            4
## Blood_cell_GSM198944                                            4
## Blood_cell_GSM198945                                            4
## Blood_cell_GSM198942                                            4
## Blood_cell_GSM198943                                            4
## Blood_cell_GSM381341                                            4
## Blood_cell_GSM381343                                            4
## Blood_cell_GSM381339                                            4
## Blood_cell_GSM381345                                            4
## Blood_cell_GSM381340                                            4
## Blood_cell_GSM381346                                            4
## Blood_cell_GSM381342                                            4
## Blood_cell_GSM381344                                            4
## Blood_cell_GSM310440                                            4
## Blood_cell_GSM488972                                            4
## Blood_cell_GSM488973                                            4
## Blood_cell_GSM310431                                            4
## Blood_cell_GSM310437                                            4
## Blood_cell_GSM310439                                            4
## Blood_cell_GSM310432                                            4
## Blood_cell_GSM310436                                            4
## Blood_cell_GSM310433                                            4
## Blood_cell_GSM310434                                            4
## Blood_cell_GSM310435                                            4
## Blood_cell_GSM310430                                            4
## Blood_cell_GSM310438                                            4
## Blood_cell_GSM290420                                            4
## Blood_cell_GSM290414                                            4
## Blood_cell_GSM290415                                            4
## Blood_cell_GSM290421                                            4
## Blood_cell_GSM290423                                            4
## Blood_cell_GSM1209554                                           4
## Blood_cell_GSM1209569                                           4
## Blood_cell_GSM1209556                                           4
## Blood_cell_GSM1209572                                           4
## Blood_cell_GSM1209555                                           4
## Blood_cell_GSM1209557                                           4
## Blood_cell_GSM1209564                                           4
## Blood_cell_GSM1209568                                           4
## Blood_cell_GSM1209566                                           4
## Blood_cell_GSM1209570                                           4
## Blood_cell_GSM1209567                                           4
## Blood_cell_GSM1209590                                           4
## Blood_cell_GSM1209565                                           4
## Blood_cell_GSM1209571                                           4
range2 <- range(row_clst_df[row_clst_df$"cutree.row_clst..k...10..row_clst.order."=="2",]$"X1.length.row_clst.order.")
range10 <- range(row_clst_df[row_clst_df$"cutree.row_clst..k...10..row_clst.order."=="10",]$"X1.length.row_clst.order.")

arrow_t_length <- 0.5
arrow_width <- 1
add_p <- ggplot()+
  annotate("segment",x=range2[1], xend = range2[2]-1,y = 0, yend = 0, arrow=arrow(ends = "both", angle = 90,length = unit(arrow_t_length, "cm")),color="blue",size=arrow_width)+
  annotate("segment",x=range10[1]+1, xend = range10[2],y = 0, yend = 0, arrow=arrow(ends = "both", angle = 90,length = unit(arrow_t_length, "cm")),color="red",size=arrow_width)+
  coord_flip()+
  scale_x_continuous(expand=c(0,0), limits = c(1,741))+
  theme_ggh()

add_p

col_mod <- function(chr,sub = -32){
    is.color <- function(chr){
        res <- try(col2rgb(chr), silent = TRUE)
        return(!"try-error"%in%class(res))
    }
    if(is.color(chr)){
        color_in <- col2rgb(chr)
        color_in <- color_in + sub
        color_in <- ifelse(color_in >= 255, 255, color_in)
        color_in <- ifelse(color_in <= 0, 0, color_in)
        color_out <- as.hexmode(color_in)
        color_out <- as.character(color_out)
        color_out <- paste("#",
                           color_out[1],color_out[2],color_out[3],sep = "")
        return(color_out)
    }else{
        return("black")
    }
}


newcol3 <- c(A="#e31a1c",B="#1f78b4",C="#33a02c",
            Other="#fdbf6f",Stromal_cell="#6a3d9a",Hepatocytes="#ff7f00",Endothel="#a6cee3",
            Neuro_endo="#cab2d6",ES_iPS_germ="#fb9a99",Blood_cell="#b2df8a")
newcol3[1:5] <- sapply(newcol3[1:5], col_mod, -16)
newcol3[6:10] <- sapply(newcol3[6:10], col_mod, +32)
lmat <- rbind(c(7,7,7,1,1,1,1),
              c(7,7,7,5,1,1,1),
              c(7,7,7,3,1,1,1),
              c(1,6,4,2,11,10,9),
              c(1,1,1,8,1,1,1))
lwid <- c(0.1,0.2, 0.08, 1, 0.08,0.45,0.01)
lhei <- c(0.1,0.2,0.1,2,0.01)


gh_new2 <- ggheat2(df = data_new_categ$matrix,clst_method = "ward.D2",dist_method = "spearman",colslider = data_new_categ$colslider, rowslider = data_new_categ$rowslider,colname_label = F, rowname_label = F,rowslider_palette = newcol3,main = "",lmat = lmat, lwid = lwid,lhei = lhei,font.size = 14,add_p2 = add_p)
## Warning: Ignoring unknown aesthetics: width, height

grid.draw(gh_new2$plot_data)

ggsave(plot = gh_new2$plot_data,filename = "ggheat_stroma_emph2.tiff",dpi = 300,width = 18,height = 18,units = "cm")

get PCA deposited data

#downloader::download(url = "http://www.macrophages.com/sites/default/files/repbiolayoutdatasets/Human_primary_cell_atlas.expression.zip",destfile="pca.zip")
#unzip("./pca.zip")
PCatlas <- read.table(file = "./Human_primary_cell_atlas.expression",header = T,sep = "\t",stringsAsFactors = F,quote = "")
categ4 <- list(Tcell=c("T_cell","T cell","T cells","CD4 cells","Treg","t_cell","Effector memory","Central memory","Naive, donor"),
              Bcell=c("B-cells","B cells","B cell"),
              Mono_Macro = c("cell type: Monocyte","monocytes","monopcytes","Peripheral blood from healthy human donor","macrophages","Macrophages"),
              Erythroblast = c("Erythroblast"),
              BM_HSC =c("Bone marrow & progenitors","Myelocytes","MEP cells","GMP cells","CMP cells",
                        "HSC","Human composite bone marrow","peripheral blood, prior"),
              Neutrophils=c("Neutrophils","neutrophils","PMN"),
              Gametes=c("Sperm","Oocytes","oocytes"),
              Centrocytes=c("centrocyte","centroblast"),
              NKcells=c("NK cells","Natural killer cells","Natural Killer cells "),
              Dendritic_cells=c("Dendritic cells","dendritic cells","MDDC","DCs","Dcs"),
              MSC=c("-defrived mesenchymal stem cells","BM MSC","BM-MSC","cell type: mesenchymal stem cells","derived mesenchymal stem cells"),
              Plt=c("platelet"),
              SMC=c("smooth muscle cells","Smooth Muscle Cells","SMCs","smooth muscle cell"),
              Neuron=c("Nerve","astrocytes"),
              Endocrine=c("adrenal medulla"),
              Keratinocytes=c("keratinocytes"),
              Hepatocytes=c("hepatocyte"),
              Bone_etc=c("osteoblast","chondrocyte","DPSCs"),
              Adipocytes=c("adipocyte","adipose stem cell"),
              Vascular=c("lymphatic endothelial cells","HUVEC","Vein ECs","blood vessel endothelial cell","HMVEC","cell type: Endothelial cells"),
              Fibroblasts=c("Foreskin Cells","normal fibroblast","cell type: fibroblast","Human Fibroblast cells","PDB fibroblasts","fibroblasts_","Fibroblasts uninfected","Fibroblasts infected"),
              Epitel=c("bronchial epithelial cells"),
              Bladder=c("bladder"),
              ES_iPS = c("ESC", "ES cell","Human Embryonic Stem Cells","embryonic stem cells","iPS","hIPSC")
              )
mat4cor <-  data.frame(filename=cels,data_colname=data_colname,id=rowname_cands,stringsAsFactors = F)

#label_vector <- c("nn", "daw", "dafb", "nn","daw","dafb", "nn")


calc_categ <- function(proc_matrix, label_vector, func="mean"){
  require(magrittr)
  
  proc_matrix <- proc_matrix %>%
    as.data.frame()
  
  labels_uniq <- label_vector[!duplicated(label_vector)]
  

  
  if(func=="mean"){
    fun <- function(x){base::mean(x)}
  }else if(func=="median"){
    fun <- function(x){stats::median(x)}
  }else{
    return("func is mean or median")
  }
  
  proc_result <- NULL
  
  for(i in 1:length(labels_uniq)){
    matrix_lab_i <- proc_matrix[,label_vector==labels_uniq[i]]
    proc_i <- apply(matrix_lab_i, 1, fun)
    
    proc_result <- cbind(proc_result, proc_i)
  }
  
  colnames(proc_result) <- labels_uniq
  return(proc_result)
}
mat4cor <- merge(mat4cor, result_df,by.x = "id", by.y = "geo_accession",sort = F,all.x = T)

mat4cor$title <- ifelse(test = is.na(mat4cor$title),yes = "",no = mat4cor$title)
mat4cor$source_name_ch1 <- ifelse(test = is.na(mat4cor$source_name_ch1),
                                   yes = "",no = mat4cor$source_name_ch1)
mat4cor$characteristics_ch1 <- ifelse(test = is.na(mat4cor$characteristics_ch1),
                                       yes = "",no = mat4cor$characteristics_ch1)
mat4cor$colname_tag <- base::paste(mat4cor$id, mat4cor$title)
mat4cor$category <- categolizer(annotation_df = data.frame(mat4cor$characteristics_ch1,
                                                   mat4cor$source_name_ch1,
                                                   mat4cor$title,stringsAsFactors = F),
                        dictionaly_list = categ4)

mat4cor$sample_tag <- paste(mat4cor$category, mat4cor$id, sep = "_")
mat4cor$sample_tag <- str_replace(mat4cor$sample_tag, "^_","")

mat4cor$category <- ifelse(mat4cor$category=="Mono_Macro_Dendritic_cells", yes="Mono_Macro", no=mat4cor$category)

mat4cor$category <- ifelse(mat4cor$category=="",str_extract(mat4cor$colname_tag,"^[ABC]"),mat4cor$category)
mat4anal <- log2(mas5_4each)
#mat4anal <- mas5_4each

truehist(as.matrix(mat4anal))

colnames_temp <- colnames(mat4anal)
colnames_temp <- str_replace_all(colnames_temp,pattern = "\\.cel\\.gz","")
colnames_temp <- str_replace_all(colnames_temp,pattern = "\\.cel|\\.CEL","")

colnametemp <- for(i in c(1:length(colnames_temp))){
  if(str_detect(colnames_temp[i],"^[ABC]")){
    colnames_temp[i] <- colnames_temp[i]
  }
  else if(str_detect(colnames_temp[i], "^GSM")){
    colnames_temp[i] <- str_extract(colnames_temp[i], "^GSM[0-9]*")
  }
  else{
    print("unknown condition")
  }
}

#colnames_temp
#conv_mat$id
#colnames_temp[!colnames_temp %in% conv_mat$id]

#matrix_in_out = data.frame(conv_mat$id,conv_mat$sample_tag)


colnames_temp <- convertvector(inputvector = colnames_temp,
                               matrix_in_out = data.frame(mat4cor$id,
                                                          mat4cor$sample_tag,stringsAsFactors = F))

colnames(mat4anal) <- colnames_temp

rm(colnames_temp)
mat4anal <- mat4anal[,ref_sort(sort_vector = colnames(mat4anal),ref_vector = mat4cor$sample_tag)]

logical_center <- calc_categ(proc_matrix = mat4anal,label_vector = mat4cor$category,func = "median")

#logical_center <- logical_center[sort.list(apply(logical_center,1,mad)) <= 10000,]

truehist(apply(logical_center, 1, mad))

n <- mat4anal %>%
  .[sort.list(apply(.,1,mad)) <=  5000,]


truehist(apply(n, 1, mad))

#logical_center <- calc_categ(proc_matrix = n,label_vector = mat4cor$category,func = "median")


cors1 <- as.data.frame(cor(logical_center, method = "spearman")) %>%
  .[sort.list(.$B,decreasing = T),]


truehist(as.matrix(cors1))

write.csv(cors1, file = "category_cor.csv")

write.table(logical_center, file = "logical_center.tsv",sep = "\t",col.names = NA, row.names = T)

dict4

dict4out <- NULL

dict_label <- names(categ4)
for(i in 1:length(dict_label)){
  name_i <- paste(categ4[[dict_label[i]]], collapse=",")
  print(name_i)
  dict4out <- rbind(dict4out, name_i)
  rownames(dict4out)[i] <- dict_label[i]
}
## [1] "T_cell,T cell,T cells,CD4 cells,Treg,t_cell,Effector memory,Central memory,Naive, donor"
## [1] "B-cells,B cells,B cell"
## [1] "cell type: Monocyte,monocytes,monopcytes,Peripheral blood from healthy human donor,macrophages,Macrophages"
## [1] "Erythroblast"
## [1] "Bone marrow & progenitors,Myelocytes,MEP cells,GMP cells,CMP cells,HSC,Human composite bone marrow,peripheral blood, prior"
## [1] "Neutrophils,neutrophils,PMN"
## [1] "Sperm,Oocytes,oocytes"
## [1] "centrocyte,centroblast"
## [1] "NK cells,Natural killer cells,Natural Killer cells "
## [1] "Dendritic cells,dendritic cells,MDDC,DCs,Dcs"
## [1] "-defrived mesenchymal stem cells,BM MSC,BM-MSC,cell type: mesenchymal stem cells,derived mesenchymal stem cells"
## [1] "platelet"
## [1] "smooth muscle cells,Smooth Muscle Cells,SMCs,smooth muscle cell"
## [1] "Nerve,astrocytes"
## [1] "adrenal medulla"
## [1] "keratinocytes"
## [1] "hepatocyte"
## [1] "osteoblast,chondrocyte,DPSCs"
## [1] "adipocyte,adipose stem cell"
## [1] "lymphatic endothelial cells,HUVEC,Vein ECs,blood vessel endothelial cell,HMVEC,cell type: Endothelial cells"
## [1] "Foreskin Cells,normal fibroblast,cell type: fibroblast,Human Fibroblast cells,PDB fibroblasts,fibroblasts_,Fibroblasts uninfected,Fibroblasts infected"
## [1] "bronchial epithelial cells"
## [1] "bladder"
## [1] "ESC,ES cell,Human Embryonic Stem Cells,embryonic stem cells,iPS,hIPSC"
write.table(dict4out, file = "categ4.tsv",sep = "\t",row.names = T, col.names = NA)

sessioninfo

sessionInfo()
## R version 3.4.2 (2017-09-28)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 16.04.3 LTS
## 
## Matrix products: default
## BLAS: /usr/lib/libblas/libblas.so.3.6.0
## LAPACK: /usr/lib/lapack/liblapack.so.3.6.0
## 
## locale:
##  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
##  [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    
##  [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
##  [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
##  [9] LC_ADDRESS=C               LC_TELEPHONE=C            
## [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       
## 
## attached base packages:
## [1] stats4    parallel  stats     graphics  grDevices utils     datasets 
## [8] methods   base     
## 
## other attached packages:
##  [1] magrittr_1.5             scales_0.4.1            
##  [3] ggdendro_0.1-20          gridExtra_2.2.1         
##  [5] reshape2_1.4.2           RobLox_1.0              
##  [7] RobAStBase_1.0.1         rrcov_1.4-3             
##  [9] robustbase_0.92-7        distrMod_2.6.1          
## [11] RandVar_1.0.1            distrEx_2.6.1           
## [13] distr_2.6.2              SweaveListingUtils_0.7.7
## [15] sfsmisc_1.1-1            startupmsg_0.9.4        
## [17] doParallel_1.0.10        iterators_1.0.8         
## [19] foreach_1.4.3            affy_1.54.0             
## [21] GEOquery_2.42.0          Biobase_2.36.2          
## [23] BiocGenerics_0.22.0      extrafont_0.17          
## [25] ggplot2_2.2.1            MASS_7.3-47             
## [27] stringr_1.2.0            BiocInstaller_1.26.0    
## 
## loaded via a namespace (and not attached):
##  [1] lattice_0.20-35       pcaPP_1.9-72          colorspace_1.3-2     
##  [4] htmltools_0.3.6       yaml_2.1.14           XML_3.98-1.9         
##  [7] rlang_0.1.2           RColorBrewer_1.1-2    affyio_1.46.0        
## [10] plyr_1.8.4            zlibbioc_1.22.0       munsell_0.4.3        
## [13] gtable_0.2.0          mvtnorm_1.0-6         codetools_0.2-15     
## [16] evaluate_0.10.1       knitr_1.17            Rttf2pt1_1.3.4       
## [19] preprocessCore_1.38.1 DEoptimR_1.0-8        Rcpp_0.12.12         
## [22] backports_1.1.0       digest_0.6.12         stringi_1.1.5        
## [25] grid_3.4.2            rprojroot_1.2         tools_3.4.2          
## [28] bitops_1.0-6          lazyeval_0.2.0        RCurl_1.95-4.8       
## [31] tibble_1.3.3          cluster_2.0.6         extrafontdb_1.0      
## [34] rmarkdown_1.6         httr_1.3.0            R6_2.2.2             
## [37] compiler_3.4.2
Sys.time()
## [1] "2017-11-17 04:11:58 UTC"
Sys.info()
##                                        sysname 
##                                        "Linux" 
##                                        release 
##                             "4.4.0-98-generic" 
##                                        version 
## "#121-Ubuntu SMP Tue Oct 10 14:24:03 UTC 2017" 
##                                       nodename 
##                                     "dry16was" 
##                                        machine 
##                                       "x86_64" 
##                                          login 
##                                      "unknown" 
##                                           user 
##                                       "r-user" 
##                                 effective_user 
##                                       "r-user"